DUDLEY  K'       UBRARY 
NAVAL  PC  \DUATE  SCHOOi 

MONTEREt  *A  93943-5101 


NAVAL  POSTGRADUATE  SCHOOL 
Monterey,  California 


THESIS 


Thesis  Advisor: 


COMPUTER 

BASED 
SATELLITE 

DESIGN 
by 

David  L.  Lashbrook 

June,  1992 


Brij  N.  Agrawal 


Approved  for  public  release;  distribution  is  unlimited. 


SECURITY  CLASSIFICATION  OF  THIS  PAGE 


REPORT  DOCUMENTATION  PAGE 


Form  Approved 
OMB  No  0704  0188 


1a    REPORT  SECURITV  CLASSIFICATION 

UNCLASSIFIED 


lb    RESTRICTIVE   MARKINGS 

NOSE 


2a    SECURITY  CLASSIFICATION  AUTHORITY 


N/A 


3     DISTRIBUTION /AVAILABILITY  OF  REPORT 

UNLIMITED  DISTRIBUATION 


2b    DECLASSIFICATION    DOWNGRADING  SCHEDULE 


ML. 


4    PERFORMING  ORGANIZATION  REPORT  NUMBER(S) 

Naval  Postgraduate  School 


5    MONITORING  ORGANIZATION  REPORT  NUMBER(S) 


6a    NAME  OF  PERFORMING  ORGANIZATION 

Naval  Postgraduate  School 


6b    OFFICE  SYMBOL 
(If  applicable) 


la    NAME  OF  MONITORING  ORGANIZATION 

Naval  Postgraduate  School 


6c   ADDRESS  [City,  State,  and  ZIP  Code) 

Monterey,  CA  93943-5000 


7b     ADDRESS  {City,  State,  and  ZIP  Code) 

Monterey,    CA.    93943-3uv,C 


3a    NAME  OF  FUNDING /SPONSORING 
ORGANIZATION 


NIZATI 

N/A 


8b    OFFICE  SYMBOL 
(If  applicable) 


9    PROCUREMENT  INSTRUMENT  IDENTIFICATION  NUMBER 


k    ADDRESS  (City,  State,  and  ZIP  Code) 
N/A 


10    SOURCE  OF  FUNDING  NUMBERS 


PROGRAM 
ELEMENT  NO 


PROJECT 
NO 


TASK 
NO 


WORK  UNIT 
ACCESSION  NO 


1 1    TITLE  (Include  Security  Classification) 

COMPUTER  BASED  SATELLITE  DESIGN,  UNCLASSIFIED 


12  PERSONAL  AUTHOR(S) 

Lashbrook,  David,  L, 


13a    TYPE  OF  REPORT 

Master's  Thesis 


13b    TIME  COVERED 
FROM  TO 


14    DATE  OF  REPORT    (Year,  Month,  Day) 

1QQ?.    MAY    26 


5    PAGE   COUNT 

235 


16  supplementary  notation      The  views   expressed   in   this   thesis   are    those   of   the   author   and   do 
not   reflect   the   official  policy   or  position  of   the   Department   of   Defense   or   the   U.S. 
Government . 


17 


COSATI  CODES 


FIELD 


GROUP 


SUB-GROUP 


18    SUBJECT  TERMS  {Continue  on  reverse  if  necessary  and  identify  by  block  number) 


19    ABSTRACT  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 

A  computer  program  to  design  geosynchronous  spacecraft  has  been  developed.   The  program 
consists  of  four  separate  but  interrelated  executable  computer  programs.  The  programs  are 
compiled  to  run  on  a  dos  based  personnel  computer.  The  source  code  is  written  in  DoD  man- 
dated Ada  programming  language. 

The  thesis  presents  the  design  technique  and  design  equations  used  in  the  program.  De- 
tailed analysis  is  performed  in  the  following  areas  for  both  dual  spin  and  three  axis 
stabilized  spacecraft  configurations:  1)  Mass  Propellent  Budget  and  Mass  Summary 
2)  Battery  Cell  and  Solar  Cell  Requirements  for  a  Payload  Power  Requirement  3)  Passive 
Thermal  Control  Requirements 

Thesis  includes  a  user's  manual  Appendix  A,  and  the  source  code  for  the  computer  programs 
as  Appendix  B. 


20    DISTRIBUTION    AVAILABILITY  OF  ABSTRACT 
□  UNCLASSIFIED/UNLIMITED       □  SAME  AS  RPT 


□  DTIC  USERS 


22a    NAME  OF  RESPONSIBLE   INDIVIDUAL 

Brij    N.    Agrawal 
DDForm  1473,   JUN  86 


21     ABSTRACT  SECURITY  CLASSIFICATION 

UNCLASSIFIED 


22b  TELEPHONE  (Include  Area  Code) 

(408)    646-3338 


22c    OFFICE  SYMBOL 

AA/Ag 


Previous  editions  are  obsolete 

S/N   0102-LF-014-6603 


security  classification  of  this  page 


Approved  for  public  release;  distribution  is  unlimited. 

Computer  Based 
Satellite 
Design 

by 

David  L.  Lashbrook 

Lieutenant  Commander,  United  States  Navy 

B.S.,  University  of  Missouri 

Submitted  in  partial  fulfillment 
of  the  requirements  for  the  degree  of 

MASTER  OF  SCIENCE  IN  ASTRONAUTICAL  ENGINEERING 

from  the 

NAVAL  POSTGRADUATE  SCHOOL 
June  1992 


ABSTRACT 

A  computer  program  to  design  geosynchronous  spacecraft  has  been  developed.  The  program 
consists  of  four  separate  but  interrelated  executable  computer  programs.  The  programs  are  compiled 
to  run  on  an  dos  based  personnel  computer.  The  source  computer  code  is  written  in  DoD  mandated 
Ada  programming  language. 

The  thesis  presents  the  design  technique  and  design  equations  used  in  the  program.  Detailed 
analysis  is  performed  in  the  following  areas  for  both  dual-spin  and  three  axis  stabilized  spacecraft 
configurations: 

•  Mass  Propellent  Budget  and  Mass  Summary 

•  Battery  Cell  and  Solar  Cell  Requirements  for  a  Payload   Power  Requirement 

•  Passive  Thermal  Control  Requirements 

Thesis  includes  a  users  manual  Appendix  A,  and  the  source  code  for  the  computer  programs 
as  Appendix  B. 
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I.      INTRODUCTION 

A.      PURPOSE 

The  purpose  of  this  thesis  was  to  design  an  executable  computer  program   capable  of 
determining  the  numbers  required  to  design  specified  aspects  of  a  geostationary 
communications  satellite,  that  could  be  run  on  a  standard  home  personal  computer 
(PC)   The  program  is  based  on  Professor  Brij  N.  Agrawal's  book  "Design  of 
Geosynchronous  Spacecraft".    The  book  describes  all  the  steps  necessary  to  design  a 
geosynchronous  communications  satellite.    Because  of  time  limitations,  it  was  decided 
that  the  following  areas  of  a  Geostationary  Communications  Satellite  would  be 
completed  on  this  portion  of  the  project: 

•  Mass  and  Propellent  Budget 

•  Electric  Power 

•  Thermal  Control 

Both  Three-Axis  and  Dual  Spin  Stabilized  satellite  configurations  are  included  in  the 
program  and  provide  design  reports  that  can  be  printed  at  the  user's  discretion. 
Appendix  A  is  a  short  user's  manual  of  the  computer  program  and  Appendix  B 
contains  the  different  executable  computer  programs'  source  code. 


B.  BACKGROUND  /  CONCEPT 

The  program  came  about  through  discussions  with  Professor  Brij  N.  Agrawal 
and  space  system  students  enrolled  in  his  satellite  design  classes.    The  basis  for  the 
computer  program  is  to  aid  the  user  in  quickly  determining  useful  and  accurate 
numbers  for  a  geostationary  spacecraft  design.    Although  not  a  tutorial,  the  program 
sequentially  walks  the  user  through  the  necessary  steps  to  develop  a  Mass  Propellent 
Budget,  Photovoltaic  Electric  Power  System,  and  Thermal  Control  System  for  either  a 
three-axis  or  dual-spin  stabilized  geostationary  communications  satellite.   The  four 
executable  programs  will,  with  a  small  amount  of  preparation,  allow  the  average  user 
to  develop  the  described  areas  of  a  geosynchronous  satellite  design  in  minutes. 
Where  as  by  using  a  hand  calculator,  the  same  variable  numbers  and  final  results 
would  take  days  or  weeks  to  arrive  at  the  same  results. 

C.  OPERATIONAL  DESIGN  PARAMETERS 

All  parameters  for  the  executable  program  used  to  design  a  spacecraft  in  this 
thesis  are  based  on  an  orbiting  geostationary  communications  satellite.  Some  velocity 
components  for  propellent  usage  and  therefore  mass  budget  are  related  to  the  transfer 
and  parking  orbits  as  well  as  orbit  injection  angles  and  delta  velocities  necessary  to 
achieve  and  maintain  geostationary  orbits.    The  equations  or  components  used  are 
specifically  applicable  to  a  geostationary  satellite  and  might  be  useful  for  others  as 
well.   The  two  most  common  satellite  design  types,  three  axis  stabilized  and  dual-spin 
stabilized,   are  used  as  a  basis  for  program  engineering  and  concept. 


1.  Dual  Spin  Stabilization 

The  dual  spin  configuration  used  for  executable  program  design  is  a 
cylindrical  shell  with  spacecraft  power  provided  by  solar  cells  surface  mounted  around 
the  outer  cylindrical  area.  The  interior  of  the  shell  of  the  cylinder  houses  spacecraft 
electronics  and  propulsion  devices. 

2.  Three  Axis  Stabilization 

Three  axis  stabilized  spacecraft  will  be  based  on  a  rectangular  box  shape. 
Power  will  be  provided  by  sun  tracking  flat  panel  array (s).  During  parking  orbit  and 
operational  orbit  insertion,  spin  stabilization  will  be  used. 


H.      MASS  SUMMARY  AND  PROPELLENT  BUDGET 

This  chapter  will  step  through  the  process  of  determining  a  equipment  mass 
summary  and  a  propellent  weight  budget. 

A.         TRANSFER  ORBIT 

For  a  satellite  to  be  useful  it  first  must  achieve  its  operational  orbit.  The 
spacecraft  will  progress  through  a  series  of  different  orbits  before  achieving  its  "final" 
working  orbit.  The  sequence  begins  with  the  launch  of  the  spacecraft  from  any  of  a 
variety  of  locations  depending  on  payload  type,  mass,  desired  orbit  inclination,  including 
mission  or  launch  window  constraints.  The  satellite  is  released  from  the  launch  vehicle 
into  a  Low  Earth  Orbit  (LEO)  parking  orbit  where  system  checks  are  performed.  The 
next  phase  is  to  put  the  satellite  into  an  elliptical  transfer  orbit  in  preparation  for  final 
insertion  into  operational  orbit. 

There  are  a  variety  of  "transfer"  orbits  that  can  be  used  for  final  insertion  into 
operational  orbit.  The  most  common  in-plane  and  fuel  efficient  transfer  orbit  for  a 
geostationary  spacecraft  is  a  Hohman  Transfer  Orbit  (HTO).  The  programs  in  Appendix 
B  use  HTO  for  velocity  change  requirements  for  the  transfer  orbit.  After  release  from 
the  launch  vehicle  the  spacecraft  enters  a  parking  orbit  where  satellite  systems  are 
checked  out  in  preparation  for  insertion  into  the  final  operational  orbit. 

The  first  phase  of  a  Hohman  transfer  is  to  fire  the  perigee  kick  motor  (PKM). 
This  places  the  spacecraft  in  an  elliptical  transfer  orbit.  After  four  or  five  transfer  orbits 


the  satellite  completes  system  checkout,  attitude  determinations  are  finalized,  and  the 
apogee  kick  motor  (AKM)  fires.  Geostationary  orbit  (GSO)  is  achieved  by  inserting 
the  satellite  into  a  circular  orbit  at  a  radius  of  approximately  42,160  kilometers  and  at 
a  desired  inclination  (i)  of  zero  degrees  (equatorial  orbit)  for  our  design  purposes.  The 
spacecraft  will  then  go  through  a  series  of  re-orientations  to  finalize  its  operational  orbit 
and  mission  altitude.    (Wertz,  1991,  p.  130  ) 

B.         VELOCITY 

Velocity  determination  and  certain  delta  velocities  required  to  achieve  the 
operational  orbit  are  vital  to  building  propellent  summaries.  Other  factors  taken  into 
consideration  are  the  type  of  fuel  used  (relating  to  \p)  and  the  efficiencies  of  the  separate 
orbit  insertion  and  orbit  maintenance  activities.  The  efficiencies  of  the  apogee  kick 
motor  AKM,  PKM,  station  keeping,  and  de-orbit  functions  of  the  spacecraft  must  be 
known  so  that  sufficient  propellent,  and  propellent  weight,  is  incorporated  into  spacecraft 
design.  Margins  for  the  propellent  budget  are  also  assimilated  into  the  propellent  budget 
as  a  safety  factor  even  though  the  delta  velocity  equations  provide  very  accurate  figures 
with  little  error.   All  values  determined  are  for  a  geostationary  communication  satellite. 

1.         Geostationary  Orbit 

In  a  perfect  geostationary  orbit  the  satellite  will  move  around  the  earth's 
equator  synchronized  with  the  rotation  of  the  earth  about  the  earth's  axis.  The  period 
(P)  is  equal  to  one  sidereal  day  (23  hours,  56  minutes,  4.09  seconds),  or  from  the  rising 
of  a  star  to  the  rising  of  the  same  star  vice  24  hours  or  sunrise  to  sunrise. 


The  radius  for  a  geostationary  orbit  is  determined  via  Keplar's  Law  using 
a  P  of  86,164.09  seconds  corresponding  to  one  sidereal  day  and  is  given  by 


U   *P2 


a=( 


/3 


4*7T 


EQ2.1 


where  /zc=  gravitational  constant  398,601.2   km3/(kg/s2) 
a  =  semi-major  axis 
P2  =  period  of  the  orbit  in  seconds 


The  resulting  orbital  radius  is  42,164.2  kilometers  and  is  a  pure  circular  orbit  with  zero 
eccentricity. 

2.         Satellite  Drift 

Any  deviation  from  the  above  ideal  parameters  will  cause  perturbations 
in  the  orbit.  The  gravitational  forces  of  the  sun  and  moon  also  act  on  the  satellite  to 
cause  drift.  Table  2.1  lists  the  average  drift  rate  imposed  on  the  satellite  by  the  sun  and 
moon. 


Table  2.1     SECULAR  RATES  FROM  SUN  AND  MOON 


Effect  of  Moon 

Effect  of  Sun 

0 

-0.00076 

-0.00034 

co  ddot 

*0.0 

«0.0 

a.     East  -  West  Drift 

For  a  radius  greater  than  (>)  42,164.2  kilometers  the  spacecraft's 
orbital  period  is  greater  than  24  hours  giving  it  the  appearance  of  drifting  westward 
with  respect  to  the  surface  of  the  earth.    Conversely,  for  an  orbital  radius  of  less  than 
42,164.2  kilometers,  the  spacecraft's  orbital  period  is  less  than   24  hours,  thus  giving 
it  the  appearance  of  drifting  eastward  with  respect  to  the  surface  of  the  earth.    The 
incremental  drift  rate   of  the  longitudinal  drift  with  respect  to  an  ideal  geostationary 
orbit  is:  (Agrawal,  pg  68,  1986) 

Ai3-l*ig*Aa-2*     360°/d^    =  -0.013°/ day         EQ  22 
2     aB  2     42, 164 .2km      42,164.2km 

The  east  -  west  motion  for  an  inclined  circular  orbit  is  usually  very  small.    This 
longitudinal  drift  for  a  small  i  and  X  is: 


A  =  -i_!*sin(2j2t)  EQ2.3 

4 


So  for  small  inclinations,  latitude  oscillation  is  predominate.    This  can  be  easily  seen 
in  Figure  2.1.   The  effects  of  the  sun  and  moon  can  be  seen  in  Table  2.1.   For  an 
elliptic  equatorial  orbit  with  inclination   (i=0)  the  amplitude  is 

A*=2*e  EQ2.4 


Therefore,    east  -  west  oscillation  predominates. 


J. 

^"" 

N 

*" 

s 

\              Inclined 

s 

s 

s^*-""""  orbit 

/ 

/ 

Latitude 

/                                  ^ 

/            _-— — "V* 

"'~*,^,*»>^    \         Equatorial                               X 

'v^     v^ 

^*s/  ^y  plane                                       V 

y       >X 

f                         E 

Nc            /         Bt>^*>w                             / 

\  Longitude 

r^^x   ^&>^i              I 

V             y^" ^>  ^-- —    nt  +  X    /                                                           ^ 

Vt^-^^                  / 

\  /                                                ' 

y                                                  ' 

X  V 

uT               ^                                                                          S 

r         \                   ^' 

Figure  2.1   Geosynchronous  Orbit  (i=/=0) 
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An  inclined  geostationary  orbit  with  correct  radius  will  tend  to 
oscillate  mainly  in  latitude  with  respect  to  the  surface  of  the  earth.  The  amount  of 
oscillation  depends  on  the  inclination  and  the  drift  rate.  The  motion  or  path  of  the  drift 
resembles  a  figure  eight  (  8  ).    See  figure  2.1.    (Agrawal,  p.    88,  1986) 

c.         Gravitational  Effects  of  Sun  and  Moon 

The  gravitational  forces  of  the  sun  and  moon  cause  secular 
variations  in  the  orbital  elements  of  a  geostationary  satellite.  These  variations  have  the 
largest  effect  on  right  ascension  of  the  ascending  node  and  the  argument  of  perigee.  For 
nearly  circular  orbits  (one  aspect  of  an  ideal  geostationary  orbit)  e  «  0  and  the 
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resulting  error  is  on  the  order  of  e2.    So  the  equations  for  the  rates  of  change  from  the 
sun  and  moon  are    (Wertz,  p.  125,  1991): 

QaoQB  =  -0.  00138*  COSfl(i)  EQ2.5 

Cleun=-0  .  00154*CQs(i)  EQ  2.6 

wmOon=-0-  00169*  (4-5*sin2(i)  )  EQ  2.7 


(bflun=0.  00077*  (4-5*sin2(i))  Eq2.8 

sun  n 


where,  i  =  inclination 

n  =  orbit  revolutions  per  day 

For  a  geostationary  orbit,  the  total  longitudinal  drift  acceleration 
X  is  obtained  by  averaging  the  drift  acceleration  over  the  orbital  period.  Since  the  sun 
for  our  purposes  is  an  inertially  fixed  reference  point  it  contributes  less  than  one  degree 
of  drift  per  day.  So  for  a  circular  orbit  the  velocity  remains  constant.  Therefore  the 
main  contributor  to  longitudinal  perturbations  is  not  the  sun  or  moon  but  the  earth's 
slightly  elliptical  shape.  This  ellipticity  caused  by  what  is  known  as  the  equatorial 
bulge  changes  the  earths  gravitational  force  preventing  it  from  acting  purely  radial.  This 
phenomenon  creates  two  stable  longitudes  called  SI  and  S2  (75°E  and  255°E)  and  two 
unstable  longitudes  US1  and  US2  where  the  gravitational  forces  are  radial  and  the 
longitudinal  drift  acceleration  is  zero.  Drift  will  occur  whenever  the  satellite  is  not  at 
one  of  these  points.    For  example,  if  a  satellite  longitude  is  between  SI  and  US1,  the 

9 


lateral  force  component  is  along  the  velocity  and  this  results  in  a  negative  longitude 
acceleration  as  shown  in  EQ  2.9.  So  whenever  is  near  US1  or  US2  it  will  migrate 
towards  the  stable  longitudes  SI  or  S2  whichever  is  closest.     (Agrawal,  p.  83,  1986) 


*  =  -0.0168*sin2a-XgtaJ,ie)  de^ie^s  EQ  2.9 

Taking    into   account   only    second    order   gravity   effects    the 
longitudinal  drift  acceleration  is: 
where 

X    =  longitudinal  drift  acceleration  in   degrees  \  day2 

X  =  longitude  of  the  satellite  in  degrees 

>Wie=  stable  longitude  of  75°E  or  255°E 

C.         VELOCITY  DETERMINATION 

Variables  from  the  program  strategy  that  will  begin  our  design  are  based  on  a 
geostationary  orbit.  First  we  will  assume  that  some  launch  vehicle  has  inserted  our 
spacecraft  into  a  desired  parking  orbit .  For  a  final  GSO,  a  good  parking  orbit  might  be 
around  6600  kilometers.  A  parking  orbit  is  a  LEO  orbit  where  satellite  system  checks 
are  performed  prior  to  the  other  phases  of  insertion  into  the  final  operational  orbit  (GSO 
operational  orbit  «  42,160  kilometers). 

1.         Orbit  Insertion  Velocities 

For  the  design  calculations  and  for  the  executable  program  in  appendix  B 
the  following  equations  are  used  for  velocity  determination.  First,  to  find  the  orbit  radius 
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the  program  requests  the  values  for  radius  at  apogee  (r,J  and  then  the  value  for  radius 
at  perigee  (rP)  to  find  the  semi-major  axis  (a). 


a-  (r*+rp>  EQ2.10 


The  equations  for  transfer  orbit  velocity  at  apogee  (V  J  and  velocity 
transfer  orbit  velocity  at  perigee  (V^)  are: 


v. 


parking    \       _ 


J^e  EQ2.11 


V- 


2*Ve*zA  EQ2.12 


The  in-plane  velocity  change  required  to  transition  from  parking 
orbit  to  transfer  orbit  is: 


*Vtransfer=Vtp-Vparkin9  EQ  2.14 


and  the  mean  velocity  is  given  by: 


v-,/1"  EQ2.15 


'»  »  a 
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The  transfer  orbit  period  is: 


2 

a  2 
rt=2*7l*  — — =2*71*. 


H2 


(Z*+rP)3 


EQ2.16 


N  ^e 

And  ultimately  the  desired  synchronous  orbit  velocity  is: 


vs= 


\ 


i^e  EQ2.17 

a 


a.         Delta  Velocity  for  Apogee  Motor  Firing 

To  find  the  velocity  change  and  insertion  angle  required  to 
transition  from  a  parking  orbit  to  the  final  geostationary  equatorial  orbit  used  in  the 
program,  the  orientation  of  the  plane  of  orbit  or  inclination  must  be  changed.  Figure  2.2 
depicts  this  change.  The  components  of  the  velocity  necessary  to  achieve  equatorial 
geostationary  orbit  can  be  found  using  the  law  of  cosines.  The  insertion  angle  using  this 
law  is  : 

vta*sin{i)  cn11fi 

a=arctan — r-rr-  EQz.lo 

Ve-Vta*cos(i) 

A  Hohman  Transfer  Orbit  (HTO)  is  utilized  by  the  program  to 
determine  variable  values.  The  HTO  uses  a  two  burn  method  for  insertion  into 
Geostationary  orbit.     This  method  is  the  most  fuel  efficient  and  is  therefore  highly 
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desirable  to  increase  spacecraft  life.  Using  HTO  the  AVelocity     for  insertion  into 
operational  orbit  (AVgJ  is:  (Agrawal,  p.  95,  1986) 


A Vgt=J{Vta*sin(i))*+{Ve-Vta*cos{i)  ) 


EQ2.19 


/<^>- 

^^fc 

(a!fa\^ 

Vs 

Figure  2.2  Velocity  Vector  Diagram  at  Apogee  Burn 

1.         Delta  Velocity  Station  Keeping 

The  perturbing  actions  of  the  sun,  moon,  and  earth's  equatorial  bulge 
cause  the  orbit  of  a  satellite  to  deviate  from  the  ideal.  Table  2.2  lists  the  different 
inclination  drift  rates.  Orbital  limits  are  kept  within  mission  parameters  by  a  process 
called  station  keeping. 

As  discussed  earlier,  for  inclination  other  than  zero,  drift  will  be  primarily 
in  latitude.  Corrections  used  to  keep  the  spacecraft  within  the  proper  operational 
latitudes  is  called  north-south  station  keeping.  Conversely  a  change  in  the  ideal 
geostationary  radius  will  cause  a  drift  in  longitude.  Station  keeping  used  to  maintain  the 
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Table  2.2  INCLINATION  DRIFT  RATES 


Date 
January  1 

"moon 

(Deg) 

it 
(Deg) 

^toul 

(Deg) 

i^moon 
(Deg) 

ido,  Total 
(Deg) 

1993 

260.526 

23.135 

-13.023 

0.565 

0.834 

2000 

125.177 

20.888 

11.875 

0.523 

0.792 

longitude  within  operational  parameters  is  called  longitudinal  or  east- west  station  keeping, 
geostationary  radius  will  cause  a  drift  in  longitude.  Station  keeping  used  to  maintain  the 
longitude  within  operational  parameters  is  called  longitudinal  or  east- west  station  keeping. 


a.         North-South  Station  Keeping 

For  a  geostationary  orbit  finding  the  average  inclination  drift  rate 
per  year  (ADPY),  including  the  gravitational  effects  of  the  sun,  moon,  and  inclination 
of  the  orbit  parameters,  is  found  by  adding  the  published  yearly  drift  rates  (Table  2.2) 
during  the  satellites  proposed  life  and  dividing  by  the  spacecraft  life.  The  average  time 
between  north-south  station  keeping  is: 


T     .2*itol 
ne      ADPY 


♦365 .25days 


EQ  2.20 


where    itol  =  inclination  tolerance 

TNS  =  time  spent  in  north-south  station-keeping 

The  total  number  of  maneuvers  (N^^^)  for  a  given  inclination  tolerance  (i70l) 
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during  the  spacecraft  life  (SL)  in  years  is: 


N  =ADPY*SL  22 

Z*1tol 


North-south  station  keeping  is  necessary  whenever  the  latitude  or  inclination  drift  exceed 
mission  limits.    (Wertz,  p.  139,  1991) 
For  north-south  drift,   the  worst  case  AV  is 

AV=6.148*sin(itoJ)  {  kilometers  }  EQ  2  22 

co  second 

The  contribution  of  the  sun  and  moon  to  yearly  drift  are 

A ^^  =  102.67*005  (a)  *sin(a)  EQ  2.23A 

AVsun=40.17*cos(y)  *sin(y)  EQ  2.23B 

where  a  =  angle  between  the  orbital  satellite  plane  and  the  moons  orbital  plane 

7  =  angle  between  the  satellite  orbital  plane  and  plane  of  the  eclipticg20 

b.         North-South  Drift 

Table  2.3  (Agrawal,  1986,  p.  88)  gives  the  average  AV  required 
for  a  north  south  station  keeping  maneuver,  and  the  time  interval  between  maneuvers  for 
several  inclination  limits.  (Agrawal,  1986,  p.  87) 
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Table  2.3  INCLINATION  STATION  KEEPING 


Inclinations 
Limit  (degrees) 

A  V  per 
Maneuver  (m/s) 

Average  Time 

Between  Maneuvers 

(days) 

0.1 

10.7 

86.14 

0.5 

53.65 

430.7 

1.0 

107.30 

861.4 

2.0 

214.56 

1722.8 

3.0 

321.76 

2584.2 

c.     Longitudinal  Station  Keeping 

It  is  realistic  to  consider  only  second  order  effects  of  the  sun  and  moon 
on  satellite  perturbations.  In  relation  to  the  earth's  equatorial  bulge,  higher  order  effects 
are  negligible.  Table  2.4  lists  some  AV's  for  different  longitudinal  tolerances.  The 
longitudinal  drift  caused  by  the  earth's  equatorial  bulge  is  added  to  these  effects  giving 
the  longitudinal  drift  rate.     Figure  2.3  illustrates  these  longitudinal  drift  oscillations. 
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A 


Figure  2.3  Longitudinal  Station  Keeping 


The  satellite  drift  rate  is  given  by 


\Q=2*(\*A\) 


EQ  2.24 


Where         AX  =  allowable  longitudinal  deviation 

X0    =  drift  rate  when  correction  is  applied  (see  Figure  2.3) 
X      =  longitudinal  drift  acceleration 

The  time  interval  between  east-west  maneuvers  is 


7V„=4*( 


AA)  ~2 


EQ  2.25 


where  TEW  =  time  spent  in  east-west  station  keeping 
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Table  2.4  LONGITUDE  STATION  KEEPING 


Longitude  Tolerance 

A^MAXIMUM 

Minimum  Time 
Interval  Between 
Maneuvers  (days) 

0.1 

0.15 

31 

0.2 

0.21 

43 

0.5 

0.33 

69 

1.0 

0.46 

97 

2.0 

0.66 

138 

3.0 

0.80 

169 

The  velocity  change  required  per  year  is 


AVve=5.66*A.  *il^  JmsJ2=1>74+sin(2*(X-X 

year  o         j,      yeai 


stable' 


)    EQ  2.26 


where         T  =    time  interval  between  X0  and  -  X0      See  Figure  2.3. 

Drift  acceleration  due  to  the  moon  is  periodic  with  an  approximately  13.6  day 
cycle.  So  for  all  but  small  longitude  tolerances  its  effects  can  be  neglected.  Table  2.4 
gives  some  example  AV's  for  different  longitude  tolerances.  (Agrawal,  1986,  pp.  89-90) 

d.     Station  Repositioning 

At  times  a  satellite  may  need  to  move  from  one  station  to  another  this 
maneuver  is  called  station  repositioning.  This  maneuver  is  accomplished  via  two 
separate  velocity  changes.    The  first  maneuver  uses  a  velocity  change  to  impart  motion 
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in  the  desired  direction,  this  puts  the  spacecraft  into  a  slightly  elliptic  transfer  orbit. 
When  the  spacecraft  nears  the  desired  longitude  another  velocity  change  maneuver  of 
equal  magnitude  but  in  the  opposite  direction  acts  to  put  the  satellite  back  into  a  circular 
synchronous  orbit  at  the  new  operating  longitude.  The  velocity  change  (and  therefore 
the  fuel  required)  depends  on  the  amount  of  time  allowed  to  complete  the  station  change 


maneuver. 


A>t  =  A*  EQ2.27 

n 


where         AX   =  required  drift  rate 

AX     =  longitudinal  degrees  to  be  moved 

n       =  numbers  of  days  allowed  for  movement 

The  first  velocity  change  required  for  station  repositioning  is: 


A  V=2  .  83  *AX=2  .  83  *  A*  EQ  2.28 

n 


So  the  total  velocity   change  (AVT0TAL )  for  starting  and  stopping  the  station  change  is: 

AVroraL=2*AV=5.66*-^A  EQ2.29 


e.     De-Orbit 

After  a  geostationary  satellite  has  finished  its  useful  life  it  should  be  "de- 
orbited"  or  boosted  into  a  benign  orbit  to  prevent  collisions  with  future  active  payloads. 
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Boosting  a  geostationary  satellite  into  a  benign  orbit  is  the  most  economically  feasible 
method  of  disposal.  The  program  in  appendix  B  uses  a  mass  ratio  based  on  a  reference 
satellite  to  determine  the  approximate  fuel  required  to  de-orbit  the  satellite. 

D.      MASS  PROPELLENT  BUDGET 

Now  that  all  velocities  have  been  determined  and  knowing  the  spacecraft  weight 
and  power  requirements  the  weight  of  the  satellite  propellent,  structural,  operational  and 
power  systems  can  be  estimated.   The  propellent  budget  is  made  up  of  four  categories: 

1)  Velocity  Control  Propellent 

2)  Attitude  Control  Propellent 

3)  Propellent  Margin 

4)  Residual 

Attitude  control  propellent  is  used  for  attitude  control  during  AV  thrusting,  spin 
stabilization,    maneuvering    while    spinning,    counter    disturbance    torques,    attitude 
maneuvering  and  limit  cycling  (or  oscillation).  Propellent  margin  is  a  percentage  of  the 
propellent  requirement  and  residual  is  what  fuel  is  left  that  cannot  be  used. 
(Wertz,    1991,  p.  262) 

1.       Propellent  Mass 

Assuming  the  mass  of  the  spacecraft  is  known  the  satellite  propellent  mass 
is:    (Agrawal,  1986,   p.  45) 
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Mp^Ml-exp  x*9)  EQ2.30 

where  MP  =  Mass  of  the  Propellent  in  Kilograms 

Mi  =  Initial  Mass  of  the  Spacecraft 

AV  =  Required  Velocity  Change  to  get  in  operational  orbit  -  m/s 

I  =  Specific  Impulse  of  the  Fuel 

g  =  gravity  9.81  m/s2 

NOTE:  The  higher  the   specific  impulse  (Isp)  the  lower  the  amount  of  fuel  necessary 
to  complete  satellite  mission  requirements. 

2.       Design  References 

For  initial  determination  of  the  total  fuel  requirements,  this  program 
develops  a  mass  propellent  budget  by   referencing   a  known  communications  satellite 
with  a  similar  design.    The  design  satellite  mass  is  divided  by   the  reference  satellite 
mass  to  give  a  mass  ratio  (MR),  which  is  used  for  subsequent  calculations. 

j4£=        DeS1<=fnSpacecra£tMass  EO  2.31 

Refer  enceSpacecraftMass 

The  next  step  is  to  look  up  the  adaptor  mass  for  the  launch  vehicle  our 
design  satellite  is  using  in  the  applicable  launch  vehicle  users  manual.   The  adaptor 
mass  is  then  subtracted  from  the  initial  spacecraft  mass  (M,+lldaplor)  to  find  mass  of  the 
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spacecraft   before  apogee  burn  (MJ,   Equation  2.34,  this  is  used  to  determine  the 
propellent  mass  for  the  different  mission  control  events. 

Mi=Mi+adaPtor-MassAdaptor  EQ  2.32 

The  final  variables  required  by  the  program  are  the  efficiencies  for  north- 
south  and  east- west  station  keeping,  station  repositioning,  de-orbit,  and  apogee 
injection  plus  orbit  insertion.    It  is  assumed  in  the  executable  program  that  apogee 
injection  and  orbit  injection  efficiencies  are  the  same. 

E.      MASS  DETERMINATION 

The  pre-amf  mass  (mass  before  apogee  motor  firing)  programmed  mass  is 
initialized  at  seven  kilograms  and  is  multiplied  by  the  MR  (mass  ratio)  to  find  the  pre- 
amf  MASS  for  the  design. 

MPre-Amf=MR*Pre-AMFReference  EQ  2.33 

where  MPrc.AMF  =  Mass  of  spacecraft  before  apogee  motor  firing 

Pre-AMFRefereocc  =  Pre  -  AMF  reference  Mass 
The  apogee  motor  firing  mass  (MAMF)  required  to  insert  the  spacecraft  into  its 
operational  orbit  is: 


EQ  2.34 


I*i*9 


MAMF=Mi*(l-exp^9) 
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where  IAI  =  fuel  impulse  for  the  apogee  injection  motor 

AVGT  =  Delta  velocity  required  for  geostationary  orbit  transfer 

The  Post-amf  mass  is  the  mass  of  fuel  required  for  final  despin  and  stabilization 
into  an  operational  orbit.   For  this  design,   the  program  initializes   the  Post-AMF 
mass  at  29.9  kilograms. 

MPoBt-^f=MR*Post-AMFIl0f„9ace  EQ  2.35 


where         MPosl.AMF    =  Spacecraft  mass  after  apogee  motor  firing 

AMFRefereoce         =  Reference  spacecraft  post  apogee  firing  mass 

Final  propellent  mass  requirements  for  the  proposed  design  are  determined 
by  the  level  of  perceived  importance  of  the  individual  maneuvers  during  the  spacecraft 
design  life.    For  this  design,  the  hierarchy  is  north-south  then  east-west  station 
keeping,  station  repositioning,  and  finally  de-orbit. 

a.     Propellent  Mass  Station  Keeping 

The  propellant  mass  required  for  north-south  station  keeping  during 
the  spacecraft  life  is  given  by: 


EQ  2.36 


MNS=  (M.-M^-M^.^)  *  (1-exp  I^^EFF") 
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where  MNS  =  north  south  station  keeping  mass 

AVNS  =  AV  required  for  NS  station  keeping 

EFFNS  =  efficiency 

ISK  =  station  keeping  specific  impulse 

The  propellant  mass  required  for  east-west  station  keeping  during  the 
spacecraft  life  is  given  by: 


V  (Mi-MAHP-MPre.AHF-Mlls)  *  (1-exp  ** 


ISK*g*EFFcu,  EQ  2.37 


where         MEW  =  east  west  station  keeping  mass 

EFFEW  =  efficiency 

b.     Propellent  Mass  Station  Repositioning  (MSJ 

The  propellant  mass  required  for  station  repositioning  during  the 
spacecraft  life  is  given  by: 


EQ  2.38 


*«-  (M1-MAMF-MPre.AMF-MNS-MEW)  *  (1-exp  I«*3'EPF») 

where         AVSR         =  velocity  changed  required  to  reposition  the  spacecraft 

ISR  =  Specific  impulse  of  the  fuel  used  to  reposition  the  satellite 

EFFSR       =  efficiency  of  the  repositioning  maneuver 
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c.  Propellent  Mass  De-orbit  Control  (MDE) 

The  propellant  mass  required  for  de-orbit  for  the  spacecraft  is: 

— —       EO  2  39 

MDE=  (M, -M^-Mp^^-M^-M^-M^)  *  { 1  -exp  I-***w'« )         V     " 

where         AVDE         =  velocity  changed  required  to  de-orbit  the  spacecraft 

IDE  =  Specific  impulse  of  the  fuel  used  to  de-orbit  the  satellite 

EFFDE       =  efficiency  of  the  deorbit  maneuver 

d.  Pre ssu  rant  Mass  (MPR) 

The  pressurant  mass  is  calculated  as  the  MR  multiplied  by  the 
reference  satellite  pressurant  mass. 

MprMR+Mn-jw  EQ  2.40 

where         ^W^  =  mass  of  the  pressurant  in  the  reference  satellite 

e.  Mass  Margin  (M^ 

The  propellent  mass  margin   (MjJ  is  the  one  to  two  percent  safety 
margin  is  10%  of  the  spacecraft  dry  mass. 

MM=  {MPre.AMF^MPost_AMF^Mtl^M^MDE^Mp^MSR)  *0  .  02  EQ  2.41 
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/.     Total  Propellent  Expenditure  (Mpj) 

The  total  mass  of  propellent  expenditure  (Mpj)   including  apogee 
injection  requirements,  with  a  2%  safety  margin  is: 

M^M^Sl .  O+Af^  EQ  2.42 


The  dry  mass  of  the  unified  bi-propellant  propulsion  WL^  which 
combines  the  functions  of  apogee  injection,  attitude  control,  and  station  keeping   is: 
(Agrawal,  1986,   p. 46) 

M^C^M^  EQ  2.43 


where  C^     =  0.084  for  three  axis  stabilized 

=  0.054  for  dual-spin  stabilized 
To  find  the  total  propulsion  system  mass  add  MPR  and  Mm  together 

F.      MASS  REQUIREMENTS  FOR  SATELLITE  COMPONENTS 

1.       Structural  Mass  (MST) 

The  mass  of  the  spacecraft  structure  can  only  be  determined  accurately 
after  the  final  spacecraft  configuration  and  preliminary  structural  design  are 
completed.   However  this  is  usually  late  in  the  design  process.    For  a  good  estimation 
based  on  our  reference  satellite  use:    (Agrawal,  1986,  p.  48) 
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MST=CST*MA  EQ  2.44 

where         MST  =  Structural  mass  in  kilograms 

CST  =  0.087  for  three  axis  stabilized 

=  0.097  for  dual-spin  stabilized 

2.       Thermal  Control  Equipment  Mass  (Mra) 

For  the  program  the  initial  thermal  dissipation  requirement  is  unknown. 
To  estimate  thermal  control  mass   first  we  determine  the  spacecraft  beginning  of  life 
mass  (MSBOL)  which  is:    (Agrawal,  1986,   p.  48) 

MSBOL  =Mi  -MPre-AMF-MAMF-MPOBt-AMF-MADAPTOR  EQ  2 . 45 


Once  MSBOL  is  found,  we  can  use  the  following  equation  to  find  MTH: 

MTH=Cm*MSBOL  EQ2.46 

where         CTH  =  0.032  for  three  axis  stabilized 

=  0.027  for  dual-spin  stabilized  (Agrawal,  1986,  pp.  48-52) 

3.       Attitude  Control  System  Mass  (MAC) 

The  mass  for  a  spacecraft  attitude  control  system  depends  on  many 
variables.   These  variables  are  attitude  control,  attitude  accuracy,  amount  of 
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redundant  safety  features,  and  the  size  and  mass  of  the  spacecraft.    For  initial 
estimation  purposes  for  a  three  axis  stabilized  system  the  program  uses: 
(Agrawal,  1986,  p.  49) 

MAC=6  5+0.022*(AfSBOL-7  00)  EQ  2.47 


and  for  a  dual  spin  stabilized  system  initial  estimate  is: 


AT,r=31  +  0.027*(M<,Bn,-7  00)  EQ  2.48 


4.       Electrical  (Me)  and  Mechanical  System  Mass  (MM) 

The  program  in  appendix  B  uses  the  following  electrical  and  mechanical 
extrapolations  from  Agrawal's  book  "Design  of  Geosynchronous  Spacecraft". 
ME  is  given  by:    (Agrawal,  1986,  p.  52) 

M^0.039*MSflOL  EQ2.49 


and  MM  is  given  by: 


MW=0.014*M5SOL  EQ2.50 
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5.  Mass  Margin  (M^ 

The  mass  margin  is  10%  of  the  spacecraft  dry  mass  (MlJB  for  a  unified 
bi  -propellent  system). 

MDRY=MrMadaptoI-MPR  EQ2.51 

MMargin=MDRY*0.10  EQ2.52 

6.  Propellent  Pressurant  Mass  (MPP) 

That  portion  of  the  propellent  tank  that  pressurizes  the  fuel  tank  to 
maintain  fuel  flow  on  demand  is:    (Agrawal,  1986,  p.  53) 

M»sVi»  EQ 2-53 

7.  Electric  Power  System  Mass  (MEL) 

The  program  in  appendix  B  determines  the  mass  of  the  electric  power 
system  based  on  a  reference  satellite  and  design  spacecraft  power  requirements.    For 
the  purposes  of  this  design  we  will  assume: 

1)  10%  margin  for  the  solar  array 

2)  5%  margin  for  the  equipment 

3)  NiH2  batteries  with  spacecraft  fully  operational  during  eclipse. 

Also  the  program  and  design  will  use  the  Mass  Ratio  and  the  housekeeping  power  of 
the  reference  satellite  Phk-ref  t0  find  satellite  housekeeping  power  (P^. 


29 


a.     Housekeeping  Power  (PIIK) 

PHK=MR*PHK.REP  EQ  2.54 

Using  Phk  and  the  required  pay  load  power  the  battery  power  load  (PBL)  with  5  % 
equipment  margin  is: 

Pbl=  (Ppayload+Phk)  *1  ■  05  EQ  2.55 

and  the  solar  array  load  (PSL)  with  10%  margin  is: 

PSL=  (Ppayload+Phk)  *1  ■  1  EQ  2-56 


where         Ppayload  =  Satellite  payload  power  needed  in  watts 

The  electrical  power  system  mass  is  dependent  on  the  power  system 
design.    The  weights  for   solar  array,  charge  array,  shunt,  charge  control,  battery, 
and  discharge  regulator  vary  between  a  partially  regulated  DC  bus  and  a  fully 
regulated  DC  bus  with  the  later  being  slightly  larger  and  therefore  heavier  overall. 
The  total  electrical  subsystem  mass  is  also  greater  for  higher  power  requirements  and 
for  dual-spin  stabilized  spacecraft.    (Agrawal,  1986,  p.  373) 
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Therefore  depending  on  the  spacecraft  power  requirements  and 
stabilization  methods  the  total  mass  of  the  electrical  power  subsystem  is: 

MEL=(1.05*(PPayload*PHK) 

*  ( 1 . 1  *MSA +1.1  *MCA  +MS+MCC-MBAT-MDR)  )  *  0  .  0  0 1  EQ2.57 


where 


p 

*  Pay load 

=  Payload  power 

MSA 

=  Solar  Array  Mass 

PSL 

=  Solar  Array  Power 

MCA 

=  Charge  Array  Mass 

Ms 

=  Shunt  Mass 

Mcc 

=  Charge  Control  Mass 

MBat 

=  Battery  Mass 

MDR 

=  Discharge  Regulator  Mass 

8.       Communications  Package  Mass  (Mcp) 

The  communications  package  is  basically  the  initial  spacecraft  mass  (MJ 
minus  all  the  other  initial  design  masses  and  is  given  by: 


MCP=Mi  -Madaptor-Ms-MTH-MPR 


-M^-Ms-Mx-M^-M^^-AM^^-Mrr  EQ  2.58 
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9.       Tracking  Telemetry  Reference  (Mn-) 

The  mass  of  tracking  telemetry  reference  is  based  on  MR  and  is  given  by: 

MTT=MR*Mrr_REF  EQ  2.59 
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HI.      ELECTRIC  POWER 

A.  INTRODUCTION 

The  electric  power  system  provides  power  to  the  spacecraft  during  all  phases  of 
its  life  from  liftoff  to  de-orbit.    For  this  phase  of  the  satellite  design  use  a 
geostationary  communications  satellite  using  traveling  wave  tubes  (TWT's)  or  radio 
frequency  (RF)  amplifiers  for  power  transmission  of  RF  energy.    Normally,  over 
80%  of  the  total  satellite  system  power  is  used  by  the  communications  payload.   The 
power  remaining  is  required  for  spacecraft  housekeeping  duties. 

B.  POWER  SYSTEM  DESIGN 

For  this  design  the  primary  power  for  spacecraft  systems  is  derived  from  solar 
cells.    During  non-eclipse  periods  power  is  provided  by  solar  arrays  which  convert 
solar  energy  via  photovoltaic  conversion  to  electric  power.    A  non-eclipse  period  is 
when  the  suns  light  is  shining  on  the  solar  cells,  an  eclipse  period  is  when  the  sun's 
rays  are  not  available,  for  example  when  a  satellite  is  behind  the  earth.    For  eclipse 
periods,  a  maximum  of  1.2  hours  for  GSO,  power  is  provided  via  batteries.   The 
batteries  for  a  standard  GSO  communications  satellite  normally  are  required  to 
provide  only  partial  power  during  eclipse  periods. 
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The  electric  power  system  consists  of  three  parts,  the  solar  array,  batteries,  and 
power  control  electronics.    This  design  and  the  program  in  Appendix  B  concentrates 
on  the  solar  array  development  and  battery  requirements.   The  program 
in  Appendix  B  will  determine  the  solar  cell  and  battery  cell  needs  for  any  input  load 
for  a  geostationary  three  axis  or  dual-spin  stabilized  satellite. 

1.  Design  Life  Considerations 

Power  system  design  begins  with  the  electrical  power  loads  for  mission 
design  at  beginning  of  life  (BOL)  and  end  of  life  (EOL).    Sometimes  EOL  power 
demands  are  reduced  but  still  allow  reduced  operational  capabilities.    For  our  design 
and  the  executable  program  in  Appendix  B,  we  will  assume  that  the  satellite  mission 
requires  full  operational  capability  for  the  design  life  of  the  spacecraft,  or  until 
satellite  EOL.    Power  control  electronics  and  solar  panel  design  will  control  the 
smooth  operation  of  the  power  supply  to  the  payload  throughout  the  life  of  the 
spacecraft. 

2.  Design  Spectrum 

The  program  and  this  design  will  support  the  total  communications 
payload  and  whatever  load  reduced  or  full,  required  during  eclipse.    Sometimes,  load 
requirements  for  a  broadcasting  communications  payload  during  eclipse  are  lower  than 
full  power;  however,  for  military  payloads  and  commercial  satellites  near  continuous 
full  power  operation  may  be  a  design  element.   Our  design  will  account  for  both 
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spectrums  of  payload  power  criteria.   The  required  power  during  eclipse  will  be  a 
percentage  (percent_partial_power)   of  full  bus  power.    Power  control  electronics  will 
regulate  the  spacecraft  bus  voltage  and  charge  rates  but  will  not  be  addressed  in  any 
detail  in  this  design. 

C.      BATTERIES 

Battery  requirements  are  based  on  payload  power  criteria.   The  design  standards 
for  the  solar  array  will  hinge  on  the  battery  depth  of  discharge  (DOD)  and  ampere 
hour  (AH)  needs  during  eclipse  loading.    Also  during  the  launch  cycle  batteries 
provide  the  power  for  housekeeping  functions  until  the  spacecraft  is  in  an  operational 
configuration.   The  solar  arrays  during  the  transfer  orbit  and  while  in  the  parking 
orbit  will  supply  only  intermittent  power  to  the  satellite,  hence  the  batteries  must 
make  up  any  difference  in  load  requirements. 

1.       Energy  Storage 

All  spacecraft  that  use  solar  cells  for  power  need  some  system  for  energy 
storage  to  use  during  eclipse  and  peak  power  demands.    Although  there  are  many 
designs  for  energy  storage,  like  fuel  cells  and  flywheels,   batteries  will  be  used  in  this 
design  because  they  are  reliable,  economical,  and  a  proven  technology.    Batteries  tend 
to  provide  stable  power  for  the  different  operating  conditions  of  a  spacecraft's  life. 
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(Agrawal,  1986,  p.  356)   Nickel  Hydrogen  batteries  will  be  used  in  the  design   and 
for  the  executable  program  in  Appendix  B. 

2.  Battery  Charging 

After  the  batteries  have  been  used  to  supply  the  payload  requirements 
during  the  parking  orbit,  transfer  orbit,  satellite  configuration  finalization,  or  eclipse 
the  batteries  must  be  re-charged.   This  is  accomplished  through  a  charge  array  located 
on  the  spacecraft  solar  panels.   The  design  of  the  charge  array  depends  on  the  needed 
loading  during  the  satellite  eclipse  period.    The  batteries  normally  have  more  than 
enough  time  to  recharge  before  the  next  eclipse  cycle. 

3.  Battery  Requirements 

a.  Known  Variables 

Table  3.1  contains  the  required  variables  and  initialized  values  for 
the  following  calculations.    In  determining  the  satellite  payload  and  housekeeping 
power  requirements  from  calculations  in  Chapter  II,  we  have  the  criteria  needed  to 
find  the  battery  cell  standards. 

b.  Number  of  Buses 

Normally  spacecraft  have  two  buses,  each  supplying  half  the  total 
power  to  the  spacecraft  loads.   This  design  provides  for  additional  reliability  and 
prevents  a  single  point  fault  from  shutting  down  the  spacecraft  and  thus  allows  for 
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some  graceful  degradation  in  case  of  a  fault  in  one  of  the  buses.    The  program  in 

Appendix  B  allows  for  single  to  multiple  bus  designs,  but  favors  dual  bus 

configurations. 

Table  3.1  VARIABLE  NAMES  AND  SYMBOLS 


3  Axis 

Dual-Spin 

Variable  Name 

Minimum  Discharge  Bus  Voltage 

28.0 

35.0 

*DB 

Design  Satellite  Bus  Voltage 

42.0 

50.0 

Vbus 

Bypass  Diode  Voltage  Drop 

1.1 

1.1 

*DD 

EOL  Battery  Discharge  Voltage 

^EOLBAT 

Eclipse  Time 

1.2 

1.2 

Tecl 

Depth  of  Discharge 

0.65 

0.65 

DOD 

Maximum  Battery  Charge  Voltage 

1.5 

1.5 

*MBC 

Maximum  Charge  Voltage 

^BC 

Number  Series  Connected  Diodes 

3 

3 

NSD 

Battery  Charger  Voltage  Drop 

1.75 

1.75 

'CD 

Charge  Discharge  Voltage  Drop 

1.1 

1.1 

vD 

Charge  Discharge  Efficiency 
Battery 

0.9 

0.9 

Dcd 
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c.  Number  of  Battery  Cells 

The  number  of  battery  cells  (N)  needed  to  maintain  a  stated  minimum 
discharge  bus  voltage  (VDB)  is  determined  via  manipulation  of  equation  3.1. 
The  power,  voltage  times  current,  required  by  the  bus  will  be  all  or  part  of  the  total 
power,  for  example  if  the  total  power  required  is  1000  watts  and  the  spacecraft  has 
two  buses  then  each  bus  requires  500  watts  of  power.      Therefore  batteries  for  each 
bus  must  provide  this  power  for  the  maximum  eclipse  time  of  1.2  hours  for  a  GSO 
orbit. 

VDB=(N-1)*VD-VDD  EQ3.1 

therefore  N  is 

v   +  v 
N=    DB     DD+1  EQ3.2 

v 

VD 

then  round  N  up  to  the  next  higher  integer  and  using  this  new  value  find  the  new 
minimum  discharge  bus  voltage  VDB. 

d.  Minimum  Discharge  Bus  Voltage  (VDB) 

For  electrical  equipment  to  operate  correctly  a  minimum  voltage  VDB 
must  be  available  and  is  given  by: 

VDB=(N-1)*VD-VDD  EQ3.3 
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e.     Battery  Cell  Ampere  Hours 

The  battery  cell  ampere  hour  (CELLAH)  requirement  is  the  number  of 
ampere  hours  needed  to  supply  the  satellite  during  eclipse  and  is  determined  from  the 
following  equation: 


*rc 


CELL^t,— 


Nbvses^ECL  EQ3-4 


VDB*DOD 


where         NBUSES  =  number  of  buses 

TECL  =  maximum  time  in  eclipse 

Pbus  =  power  in  watts  per  bus 

DOD  =  depth  of  discharge 

and  the  bus  power  (PBUS)  requirements  are: 


Pm]   =IlOTAL  EQ   3>5 


BUS      N 

^BUSES 


f.     Maximum  Battery  Charge  Voltage 

The  maximum  battery  charge  voltage  (V^)  assuming  an  open  circuit 
failure  of  one  battery  cell  is: 

Vbc=vmbc*  (N-l)  +Nsd*Vsd  EQ  3.6 
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where         Vmbc         =  allowable  battery  charge  voltage 
NSD  =  number  of  series  connected  diodes 

Vsd  =  voltage  drop  across  each  series  connected  diode 

g.     Bus  Voltage  Allowable  Deviation 

Usually  the  bus  voltage  VBUS  is  allowed  to  vary  within   prescribed 
limits  of  «  +0.5  volts.   This  value  is  called  the  bus  voltage  allowable  deviation 
(VDEV)  and  it  allows  us  to  calculate(VBUSLL)  the  lower  limit  of  bus  voltage  which  is: 

*BUSLL  =  VBUS  ~  "DEV  ^^  ^ "  ' 


h.     Voltage  Charge  Array 

The  required  boost  voltage  needed  by  the  charge  array  (VCA)  is  given 
by: 

v  -v  -v    *v  EQ3-8 

VCA     VBC     VBUS     VCD 

i.     Seasonal  Currents 

Design  parameters  for  the  program  in  Appendix  B  provides  for  a 
charge  current  to  be  applied  to  each  bus  as  a  percentage  of  the  number  of  buses.   For 
one  bus  it  would  be  a  100%  duty  cycle.    For  two  buses,  the  charge  current  would  be 
applied  to  each  bus  on  a  50%  duty  cycle. 
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The  charge  rate  current  for  autumnal  equinox  IEQuinox  ls  given  by: 

_  CELLjji  p~  ~  q 

1  EQUINOX Y$ ' 

and  for  the  summer  solstice  current  ISOlstice  it  is: 

j  -  cellah  EQ3.10 

±  SOLSTICE  4^  v 

Battery  cells,  in  this  design,  charge  at  a  high  rate  to  return  the  energy  depleted  during 
eclipse  to  each  battery. 

j.     Battery  Recharge  Power 

The  power  needed  to  recharge  the  batteries  at  equinox  (PEC)  is: 

PEC=  ^BC*  ^EQUINOX  *^<-  ~* '  *  * 

and  the  power  needed  to  recharge  at  solstice  (P^)  is 

PSC=  VBC* I SOLSTICE  ^Q  "* '  ^ 

k.     Longest  Battery  Recharge  Time 

The  time  to  fully  recharge  the  batteries  (Trecharge)  is: 


*TC 


JWs      ECL  EQ3-13 

1  RECHARGE  p      TZi 

rEC    llCD 


41 


The  batteries  will  remain  on  trickle  charge  for  the  remainder  of  the  non-eclipse 
period. 

D.  SOLAR  ARRAY  DESIGN  LOAD 

The  solar  array  design  load  is  the  summation  of  the  equipment  load  and  the 
power  required  for  charging  the  batteries.    Taking  the  10%  design  margin  into 
account  the  solar  array  design  load  at  equinox  (PSAlequ)  is: 

and  the  solar  array  design  load  at  solstice  (PSAlsol)  *s: 

Psalsol=  ( Pbus+Psc)  *1  •  1  EQ  3. 15 

This  design  process  and  the  program  in  Appendix  B  will  split  the  loads  among  the 
buses  if  there  is  more  than  one.    The  solar  arrays  are  assumed  to  operate  at  the 
maximum  power  point  of  the  solar  cell  "IV"  curve  at  the  spacecraft  EOL. 

E.  SOLAR  CELLS 

The  total  load  on  the  solar  array  will  be  the  summation  of  the  equipment  load 
and  the  power  required  for  charging  the  batteries.    Generally,  and  for  this  design  and 
the  program  in  Appendix  B,  a  10%  design  margin  is  used  to  take  into  account  the 
uncertainty  in  the  degradation  due  to  radiation   and  other  design  factors  of  the  solar 
array.    Equations  3.14  and  3.15  account  for  this  design  margin.    The  next  step  is  to 
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determine  the  total  number  of  solar  cells  needed  to  meet  all  of  the  mission 
requirements  including  all  previous  assumptions. 

1.       Cell  Variables 

The  following  variables  listed  in  Table  3.2  and  Table  3.3  variables  for  the 
particular  solar  cell  used  need  to  be  known  to  begin  solar  array  power  system  design. 


Table  3.2 


SOLAR  CELL  VARIABLES  FOR  I  AND  CELL  DIMENSIONS 


VARIABLE 

SYMBOL 

Cell  Width 

Cw 

Cell  Length 

cL 

Cell  Thickness 

CT 

CURRENT 

Solar  Intensity 

s 

Assembly  Losses  Current 

K'A 

Environmental  Degradation  in 
Current 

K'D 

Solar  Intensity  Factor  including 
Incidence  Angle 

Ks 

Temperature  Coefficient  for  Current 

«i 

Solar  Maximum  Power  Point  EOL 
Summer  Solstice 

I 

Solar  Cell  Current  BOL 

*mp 
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Table  3.3     SOLAR  CELL  VARIABLES  VOLTAGE  AND  ILLUMINATION 


Voltage 

VARIABLE 

SYMBOL 

Panel  Wiring  Loss  per  Cell 

AV 

Solar  Cell  Voltage  at  Maximum 
Power  Point,  BOL 

<*v 

Radiation  Degradation  Factor  for 
Voltage 

KVE 

Solar  Cell  Voltage  at  EOL 

V 

Solar  Cell  Voltage  at  Maximum 
Power  Point,  BOL 

v 

Operating  Temperature 

T 

Test  Temperature 

TT 

EFFECTIVE  ILLUMINATION 

Sun  Tracking  Flat  Panel 

1 

Dual  Spin  Surface  Mounted 

1/tt 
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2.       Parallel  Solar  Cells  (NP) 

Using  the  variable  values  from  Tables  3.2  and  3.3  and  taking  the  design 
factors  into  account,  the  solar  cell  current  (I)  at  EOL  summer  Solstice  (T  «  39°C) 
is: 

1=  ( Inp+OLj*  (T~TT)  )  *KIA*KID*KS  EQ  3-16 

The  total  current  (IT)  per  bus  or  wing  is: 

IT=I*™  EQ3.17 

*BUS 

This  gives  us  the  total  number  of  solar  cells  needed  in  parallel  (NP)  for  each  wing 
which  is: 


ND=I?  EQ3.18 


'p     I 


The  number  for  NP  is  then  raised  to  the  next  higher  integer  number  value. 
For  example,  51.135  would  be  raised  to  52  for  future  calculations  using  NP,  to  give 
the  total  NP  for  that  array  or  bus.    Obviously,  the  more  parallel  strings  of  solar  cells 
the  more  current  is  supplied  to  the  satellite  bus. 
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3.  Series  Solar  Cells  (Ns) 

To  find  the  number  of  solar  cells  in  series  necessary  to  supply  the  required 
bus  voltage  (VBUS)  we  first  determine  the  solar  cell  voltage  (V)  at  EOL  summer 
solstice,  which  is  given  by: 

V=({V„v-AV+av*(T-TT)  )  *KVE  EQ  3.19 

The  number  of  solar  cells  in  series  (Ns)  needed  to  supply  this  voltage,  taking  into 
account  the  voltage  drop  in  the  bus  (VBUS_DROP),  and  the  voltage  drops  in  the  spacecraft 
wiring  harness  (VWH)  and  slip  rings  (VSR),  is: 

«r   _    "BUS*  ^BUS-DROP*  VpROP-WH*  *DROP-SR  £Q  3   20 

s  V 

Like  NP  ,   Ns  is  raised  to  the  next  higher  integer  value. 

4.  Solar  Cell  Current  and  Voltage  EOL  Equinox 

At  EOL  autumnal  equinox  the  solar  cell  current  IEQ  and  voltage  VEQ  are 
given  by  equations  3.16  and  3.19  respectively,  except  with  T  =  temperature  at 
equinox  («49°C). 
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F.      CHARGE  ARRAY  DESIGN 

The  charge  array  supplies  the  boost  voltage  necessary  to  recharge  the  spacecraft 
batteries  after  eclipse. 

1.       Series  Solar  Cells  Charge  Array  (Nc) 

The  number  of  series  solar  cells  (Nc)  required  to  supply  the  needed  boost 
voltage  is 


Nc=^  EQ3.21 

c      V 


where  the  voltage  (V)  is  the  voltage  at  solstice. 

2.       Parallel  Solar  Cells  Charge  Array  Solstice  (Nssc) 

The  number  of  solar  cells  needed  in  parallel  for  the  charge  array  during 
summer  solstice  (N^)  is 

NSSC-SE±«L  EQ  3.22 

1  SOLSTICE 

and  for  equinox  the  solar  cells  required  in  parallel  (NEQC)  is 

»^-£^h  EQ 3-23 

1  EQUINOX 

So  the  charge  array  would  require  Nc  solar  cells  in  series  and  N^  cells  in  parallel 
for  summer  solstice  battery  charging,  and  Nc  solar  cells  in  series  and  NEQC  cells  in 
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parallel  for  autumnal  equinox  battery  charging.  For  a  spin  stabilized  spacecraft  the 
solar  cell  requirements  would  have  to  be  multiplied  by  a  factor  of  x  to  account  for 
the  lower  illumination  factor. 
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IV.      THERMAL  CONTROL 

A.      BACKGROUND 

Spacecraft  in  all  orbits  must  dissipate  heat.    Heat  can  be  absorbed  from 
sunlight,  reflected  sunlight,  and  planet  emitted  radiation.  (Agrawal,  1986,  p.  280) 
Heat  is  also  generated  within  the  satellite  by  communication  transmitters,  batteries, 
control  elements  in  the  power  system,  the  payload,  and  when  apogee  kick  motors  or 
engines  are  fired,  heat  is  radiated  from  their  components.    (Wertz,  1991,   p.  370) 

A  thermal  control  system  must  maintain  equipment  within  an  allowable 
temperature  range  for  optimum  operational  capability  while  maintaining  an 
economical  design.    Spacecraft  electronics  usually  have  temperature  limits  between 
0°C  and  40°C,  while  batteries  will  have  limits  between  0°C  and  20°C.    Silicon  solar 
cells  operate  between  +100°C  and  -100°C,  but  operate  most  efficiently  at  the  lower 
end  of  this  range.    (Wertz,  1991,   p.  370) 

The  thermal  control  system  acts  upon  and  is  acted  upon  by  almost  every  other 
spacecraft  system  while  maintaining  the   spacecraft  systems  within  their  operational 
temperature  parameters.    This  is  especially  true  of  the  spacecraft  power  system 
because  the  thermal  control  system  must  dissipate  all  its  excess  energy  and  radiate  this 
energy  to  space. 
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Though  there  are  many  types  of  thermal  control  systems  from  passive  and  semi- 
passive  to  active;  this  design  will  use  passive  techniques.    Passive  systems  have  no 
moving  parts  or  heaters  and  rely  on  paints,  second  surface  mirrors,  multi-layer 
insulation,  phase  changing  devices,  and  radiation  or  conduction  to  space  radiators  like 
optical  solar  reflectors  (OSR).   In  addition,  passive  thermal  control  designs  are 
usually  lighter,  cost  less,  and  use  less  power  than  active  control  systems. 
(Wertz,  1991,   p.  371) 
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B.      THERMAL  RADIATOR  SIZING 


1.       Variable  Definitions 


Table  4.1  lists  variable  definitions  and  applicable  numerical  values. 
Table  4.1    VARIABLE  DEFINITIONS  AND  VALUES 


VARIABLE  DESCRIPTION 

SYMBOL  \  NUMERICAL  VALUE 

Thermal  Dissipation  [W] 

P 

Emittance  of  Radiator 

e 

Radiator  Temperature 

T\(«  310°K) 

Equilibrium  Temperature 

Tequil 

Solar  Array  Diameter 

DSA 

Radiator  Height 

"RAD 

Solar  Absorbtance  EOL 

<*S 

Solar  Intensity  Winter  Solstice 

S  \  1397  [W/m2] 

Solar  Intensity  Summer  Solstice 

S  \  1311  [W/m2] 

Solar  Intensity  Vernal  Equinox 

S  \  1362  [W/m2] 

Solar  Intensity  Autumnal  Equinox 

S  \  1345  [W/m2] 

Solar  Aspect  at  Winter  Solstice 

9  \  23.5° 

Solar  Aspect  at  Autumnal  Equinox 

G\0° 

Stefan  Boltzmann 

a\5.67*10-8  [W/(m2*K4] 

Efficiency 

n 
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2.       Thermal  Dissipation  (P) 

Thermal  radiators  are  used  to  dissipate  excess  heat,  the  more  heat  that 
must  be  dissipated  the  greater  the  thermal  radiator  area  required.    For  this  design  we 
will  assume  that  the  radiator  is  isothermal  and  will  be  sized  for  the  greatest  thermal 
dissipation  required.   The  hottest  time  is  at  vernal  equinox  when  the  solar  intensity  is 
1362  W/m2  with  a  solar  aspect  of  0°.   The  thermal  dissipation  (P)  required  of  the 
thermal  radiator(s)  is  based  on  the  percentage  of  the  payload  power  (PPP)  and  the 
percentage  of  housekeeping  power  (PPH)  required  to  be  dissipated  as  heat.      The 
thermal  dissipation  is  given  by: 


P=-^ *  (Ppayload*Ppp+Phk*Pph)  EQ  4.1 

Eradiating- faces 


Where        Phk  =  housekeeping  power 

Ppayload  =  payload  power 

Nradiating-faces    =  number  of  thermal  radiating  faces 

3.       Radiator  Area 

Radiator  area  (A)   for  a  three  axis  stabilized  spacecraft,    is  given  by 


A= EQ4.2 

e*o*T4*n-a  ~*S*sin(6) 
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For  a  dual  spin  stabilized  spacecraft  we  find  the  radiator  height  (H,^) 
and  multiply  it  by  the  circumference  of  its  cylindrical  shell  structure.  The  height  of 
the  radiator  is 


""     (DSA*  (it*o*e*T4*n)  -  (<xs*S*cos  (0)  )  EQ  4'3 


C.      EQUINOX  TEMPERATURE 

1.       Non  Eclipse 

For  design  purposes  and  the  program  in  Appendix  B  the  temperature  at 
equinox  (T^u^ox  )  is  needed  for  both  full  and  partial  power  requirements  during 
equinox.   Temperature  after  equinox  in  °K  for  a  three  axis  stabilized  spacecraft  is: 


i 

) 
e*o*n*A 


t  ^  i         p        \  4  EQ  4.4 

1  EQUINOX      v     .._.__.,  I 


Temperature  after  equinox  in  °K  for  a  dual  spin  stabilized  satellite  is: 


=  ( £ \4  EQ4.5 

■equinox    l  D    *//Cin*7i*e*a*^*AJ  V 


To  determine  the  temperature  in  °C  subtract  273.15°  from  the  values  in 
equations  4.4  and  4.5.   As  stated  earlier,  the  temperature  range  of  the  spacecraft 


53 


components  (other  than  solar  cells)  should  be  kept  between  0°-40°C.     If  a  condition 
arises  where  this  is  not  possible  to  keep  the  temperature  within  operational  ranges 
passively,  then  auxiliary  heaters  will  be  required  to  prevent  damage  to  the  spacecraft 
components. 

If  batteries  are  providing  full  power  during  eclipse,  the  radiator 
temperature  will  remain  approximately  the  same  during  eclipse  as  during  the  non- 
eclipse  period  of  equinox.    (Agrawal,  1986,  p.  284) 

2.       Eclipse 

When  batteries  provide  partial  power  (a  variable  is  known  as  percent 
partial  power  (PCTPP)),  heat  dissipation  is  a  percentage  of  thermal  dissipation  (P)  and 
the  equilibrium  temperature  during  equinox  (T^mO  is 

PCTPP*P    1  EQ46 

and  the  time  constant  (t)  for  a  three  axis  stabilized  spacecraft  is 

t- ^ '      EQ4.7 

4*e*o*A*TEQUIL2 

where  m  =  mass  of  the  radiator  plus  mounted  equipment. 
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For  a  dual  spin  stabilized  spacecraft,  the  time  constant  (r)  is: 


x  = 2£l EQ4.8 

i*e*a*H*DSA*HMD*TEQUIL3 


D.      RADIATOR  TEMPERATURE  AT  END  OF  ECLIPSE 

To  find  the  radiator  temperature  at  the  end  of  eclipse  this  design  uses  an 
iterative  process.    Knowing  the  maximum  time  for  eclipse  we  can  iterate  repetitively 
through  equation  4.9,  which  is  known  as  the  radiative  cooling  equation,  guessing 
different  temperatures  until  we  get  a  time  very  close  to  our  maximum  eclipse  time 
(TEC)  of  1.2  hours  (4320  seconds).    We  then  bracket  the  maximum  eclipse  time  of  72 
minutes,  with  a  value  close  enough  to  72  minutes  to  make  the  results  accurate,    (1.2 
hours  or  4320  seconds)  and  interpolate  to  find  the  minimum  temperature  during 
eclipse. 

-^  +  C=2*(cotrr1(  Te°uin°x)  -cofH  Te°ui»°x)  )  EQ  4.9 


Tequil  ^equil 
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First  we  must  find  the  constant  "C"  assuming  t=0,  where  "C"  is  some  constant. 


C=2*  (coth-1  (  T**™**)  -cof1  (  r«g™*)  ) 


■ EQUIL 


■ EQUIL 


EQ4.10 


E.      RADIATOR  MINIMUM  OPERATING  TEMPERATURE 

Now  it  is  desirable  to  determine  the  time  needed  for  the  radiator  to  reach  it's 
minimum  operating  temperature.    First  find  we  must  the  constant  "C"  for  equation 
4.11  ,  known  as  the  radiative  heating  equation, by  assuming  TBC=0,  and  substituting  it 
into  Equation  4.11. 


-^  +  Q2*  (tanrr1  (  T^inox)  _tan-i  (  tequinqX)  )  EQ4.11 


■ EQUIL 


■ EQUIL 


this  gives  us: 


Q2*  (tanh-1  (  T*°°™>x)  -tan'1  (  r*o™»)  )  EQ4.12 


EQUIL 


EQUIL 


where 


EQUINOX 


EQUIL 


lowest  temperature  during  equinox  as  iterated  via 

eq.  4.10 

Equilibrium  for  the  thermal  dissipation  (P)  desired 
eclipse 
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To  find  the  time  needed  to  reach  a  desired  radiator  operating  temperature  (Tr^) 
we  substitute  the  new  after  equinox  temperature  values  and  the  time  to  reach  TRAD  is 
now   given  by 

t=  (2*(tanh-1(  r*o™»)  -tairM  T**™°*)  )  )  -c)  *x        EQ  4.13 

where         t  =  time  to  reach  specified  radiator  operating  temperature 

F.       SOLAR  ARRAY  TEMPERATURE 

1.  Variable  Names  and  Definitions 

Table  4.2  lists  the  required  variables  and  their  symbolic  representations 
for  determining  the  solar  array  operating  temperature. 

2.  Solar  Array  Operating  Temperature 

In  a  solar  array  only  a  fraction  of  the  solar  flux  is  converted  into  electric 
power  by  the  solar  cells  thus   reducing  the  heat  of  the  array.    This  reduction  in  the 
solar  absorbtance  is  called  the  effective  solar  absorbtance  and  it  is  a  function  of  the 
average  solar  cell  array  absorptance,  the  packing  factor,  and  the  cell  efficiency. 
The  solar  array  operating  temperature  (TOP)  is  calculated  by  first  determining  the 
effective  solar  absorbtance  (aSE)  which  is:    (Agrawal,1986,  p.  285) 

*se=*s-fp**\  EQ4.14 
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Then   the  operating  temperature  for  any  season  can  be  determined  by 
substituting  the  appropriate  solar  intensity  (S)  and  solar  flux  incidence  angle  (0) 


Table  4.2   VARIABLE  NAMES  AND  DEFINITIONS 


VARIABLE  /  CONSTANTS 

SYMBOL 

Effective  Solar  Absorbtance 

«SE 

Average  Solar  Cell  Absorbtance 

<*S 

Solar  Cell  Packing  Factor 

FP 

Solar  Cell  Operating  Efficiency 

V 

Array  Front  Side  Area 

AF 

Array  Back  Side  Area 

AB 

Emittance  of  the  Array  Front  Side 

*F 

Emittance  of  the  Array  Back  Side 

*B 

Solar  Intensity 

S 

Stefan  Boltzmann 

o 

Angle  of  Incidence  of  Sunlight 

e 
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V.      CONCLUSION 

The  executable  programs  and  technical  documentation  devised  by  this  thesis  allow 
for  the  accurate  and  timely  calculation  of  spacecraft  design  requirements.  In  addition,  it 
enables  the  average  user  to  have  the  time  to  explore  the  different  phases  of  design  in 
more  detail.  The  programs  in  Appendix  B  expeditiously  calculate  the  spacecraft  mass 
propellent  budget,  spacecraft  mass  summary,  solar  power  system  design,  and  passive 
thermal  control  design  for  a  geostationary  communications  satellite.  The  results  are 
compiled  in  an  ascii  based  text  file  that  can  be  printed  and   available  for  user  study. 

The  Ada  programming  language  was  used  due  to  its  unique  ability  to  write  source 
code  in  plain  english.  The  programs  are  written  so  that  future  developers  with  limited 
programming  experience  can  understand  the  progress  of  the  program  and  use  it  as  a 
starting  point  for  future  research. 

Future  research  and  development  is  needed  for  computer  based  design  in  the 
following  geosynchronous  areas: 

•  Spacecraft  Attitude  Control  Systems 

•  Spacecraft  Structural  Design 
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For  low  earth  orbits  (LEO)  development  is  desired  in: 

•  Spacecraft  Mass  Propellent  Budgets 

•  Spacecraft  Electric  Power  System  Design 

•  Spacecraft  Attitude  Control 

•  Spacecraft  Thermal  Control  Systems 
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APPENDIX  A 


COMPUTER  BASED  SATELLITE  DESIGN 
USERS  MANUAL 


A.      THERMAL 

1)  To  start  the  program  type  "THERMAL"  at  the  dos  prompt. 

2)  The  program  will  ask  "Is  your  spacecraft  spin  stabilized".    If  it  is  answer 
with  a  character  '  Y'     if  not  answer  with  a  character  'N' 

3)  Program  will  state  design  chosen 

a)  "Spacecraft  is  Spin  Stabilized"  or 

b)  "Spacecraft  is  Three  Axis  Stabilized" 

4)  Program  asks  "What  is  your  Spacecraft  Mass" 

a)  Enter  Spacecraft  Mass  including  the  Adaptor  Mass  in  kilograms. 
Example:  "3000.0" 

5)  Program  asks  "Enter  the  POWER  requirements  of  the  Spacecraft  in  watts. 
Example:  "2000.0" 
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6)  Next  the  program  asks  you  to  chose  a  reference  satellite  from  those  listed 

'V  Intelsat  V 

'2'  Intelsat  VI 

'3'  Intelsat  VII 

'4'   or  to  insert  your  own  values. 

7)  The  program  lists  the  calculated  housekeeping  power  and  asks  if  you  want 
to  change   this  value  for  future  calculations.    If  you  want  to  change  it  enter  a 
character  'Y'  if  not,  depress  a  character  'N\ 

Program  then  lists  the  values  for  Payload  Power  and  Housekeeping  Power 

8)     Program   lists  some  default  values  for: 

Tj  -  efficiency 

a  -  solar  aspect  coefficient 

S  -  solar  intensity  solstice 

S  -  solar  intensity  equinox 

Tradiator  -  radiator  temperature 

^radiator  "  radiator  emissivity 

Tabsolute  -  absolute  zero 

Teclipse  -  eclipse  time 

NTHERMALEMnriNG  faces  -  number  of  thermal  emitting  faces 

MraD1Ator  plus  equipment  -  mass  of  radiator  plus  equipment 

PPP  -  Percent  partial  power  (percent  of  payload  dissipated  as  heat) 

CP  -  specific  heat 

To  change  any  of  the  listed  values  enter  a  character  'Y'  and  then  enter  the  number  of 
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the  value  you  wish  to  change. 

9)  Next  an  informational  screen  is  displayed  that  lists  the  different  passive 
thermal  control  materials  and  there  typical  application. 

10)  Program  displays  a  screen  that  lets  you  pick  the  type  of  material  to  use  for 
thermal  control.    Simply  enter  the  integer  of  the  material  desired  or  enter  "10"  to 
enter  your  own  values.    Chosen  values  are  then  displayed. 

1 1)  Program  asks  user  to  enter  "Percent  Payload  Power  that  must  be 
dissipated  as  heat" 

and   to  enter  "Percent  Housekeeping  Power  that  must  be  dissipated  as 
heat" 

Example:    33.4%  would  be  entered  as  "0.334" 
Total  required  power  dissipation  is  then  displayed. 

12)  Program  asks  user  to  enter  "Solar  Array  Diameter  in  meters"  if  satellite  is 
Dual  Spin  Stabilized  Example  "3.456" 

13)  Program  lists  "Radiator  Height"  if  satellite  is  Dual  Spin  Stabilized. 

14)  Program  asks  user  to  enter  a  value  for  "Radiator  Efficiency". 

The  only  reason  this  is  in  the  program  is  that  some  users  expressed  a  desire  to 
change  the  efficiency  on  the  run. 
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15)     Program  lists  values  for: 

Temperature  at  Equinox 

Equilibrium  Temperature  (based  on  partial  power  needed  during  eclipse) 

Time  Constant  in  seconds  and  minutes 


16)     Program  then  determines  the  constant  for  radiative  cooling  based  on  the 
temperature  at  equinox  and  equilibrium  temperature.   The  next  step  is  finding  the 
"After  Equinox  Temperature"  via  the  radiative  cooling  equation.   The  program  goes 
through  a  series  of  questions  to  aid  the  user  in  finding  the  "After  Equinox 
Temperature". 

The  program  outputs  your  input  temperature  in  °K  and  the  "Eclipse  Time" 
in  minutes.    Since  we  know  for  a  geosynchronous  orbit  the  longest  eclipse  time  is  72 
minutes  we  will  bracket  this  time  (one  value  above  and  one  value  below  72  minutes). 
When  a  temperature  yields  a  value  sufficiently  close  to  72  minutes  (around  10  minutes 
either  side)  we  accept  that  value  by  answering  with  a  character  'Y'  and  that  value  is 
saved  to  bracket  one  side  of  72.   Next  the  program  lists  the  saved  "After  Equinox 
Temperature"  and  its  associated  time.   Then  the  program  then  goes  the  same  process 
again  to  bracket  the  other  side  of  72  minutes.   The  program  will  not  allow  the  user  to 
accept  a  second  on  the  same  side  of  72  minutes  as  the  first.    Once  72  minutes  has 
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been  successfully  bracketed  the  program  interpolates  to  determine  the  "Temperature 
After  Equinox"  for  a  time  of  72  minutes. 

17)  The  program  then  moves  on  to  radiative  heating  portion,   the  listed  default 
desired  operating  temperature  is  listed  and  the  user  is  asked  if  he  wishes  to  change  the 
value  for  either  the  "Radiator  Heat  Dissipation"  or  the  "Specified  Operating 
Temperature". 

The  following  values  are  listed  based  on  user  input: 

Equilibrium  Temperature 
Constant  "C" 

Time  constant  -  radiative  heating 
Temperature  After  Equinox 
Equilibrium  Temperature 
Operating  Temperature 

1 8)  Finally  the  names  of  the  data  files  are  listed 
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B.      MASS  PROPELLENT  BUDGET  AND  MASS  SUMMARY 

1)  To  start  the  program  type  "MASSPRO"  at  the  dos  prompt. 

2)  The  program  will  ask  "Is  your  spacecraft  spin  stabilized".    If  it  is  answer 
with  a  character  'Y'     if  not  answer  with  a  character  'N' 

3)  Program  will  state  design  chosen 

a)  "Spacecraft  is  Spin  Stabilized"  or 

b)  "Spacecraft  is  Three  Axis  Stabilized" 

4)  Program  asks  "What  is  your  Spacecraft  Mass" 

a)  Enter  Spacecraft  Mass  including  the  Adaptor  Mass  in  kilograms. 
Example:  "3000.0" 

5)  Program  asks  "Please  enter  the  radius  at  Apogee" 
Example   "42353.0" 

6)  Program  asks  "Please  enter  the  radius  at  Perigee" 
Example   "6565.0" 

Program  lists  the  values  for: 

rP  -  Radius  at  Apogee 

rORBrr  -  Radius  of  Transfer  Orbit 

VTP  -  Velocity  at  perigee  for  the  transfer  orbit 

VTA  -  Velocity  at  apogee  for  the  transfer  orbit 

Vs  -  Velocity  of  a  Geosynchronous  Orbit 
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5)  Program  asks  "Please  enter  the  launch  inclination  in  degrees" 

Example   "25.2" 

Program  lists:    iDEoREEs  -  inclination  in  degrees 
Iradian  _  inclination  in  radian 
Geosynchronous  Orbit  insertion  angle 
AVOT  -  velocity  to  enter  a  geosynchronous  equatorial  orbit 

6)  Next  program  asks  "Please  enter  the  allowable  inclination  tolerance" 

Example     "0.2" 

7)  Next  the  program  asks  "Enter  the  spacecraft  first  year  in   orbit.    Any  year 
between  1991  and  2003"      Example  "  1994  " 

8)  Next  program  asks  "Enter  last  year  of  spacecraft  life  "    Example  "  2001  " 

9)  Drift  rates  for  the  selected  range  of  years  is  displayed  and  the  program 


lists: 


Average  drift  rate  per  year 

TNS  -  time  between  north  south  station  keeping  maneuvers 
NNS  -  number  of  north  south  station  keeping  maneuvers 
AVNS  -  delta  velocity  north  south 
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10)  Next  program  asks  "Please  enter  the  spacecraft  operating  longitude  in 
degrees" 

Example     "312.3"   then  program  lists: 

double  dot _  longitudinal  drift  acceleration 

Tgw  -  Time  between  east  west  station  keeping  maneuvers 

AVEW  -  delta  velocity  over  spacecraft  life  for  E-W  station  keeping 

Next  program  states  "the  efficiency  of  the  station  keeping  motors" 

EFFNS  -  Propulsion  efficiency  north  south 

EFFEW  -  Propulsion  efficiency  east  west 
to  change  default  values  enter  a  T  otherwise  a  '2' 

1 1)  Next  program  asks  "Please  enter  the  number  of  days  allowed  for  station 
repositioning"    Example     "29.0"     and  then  the  program  asks  "Please  enter  the 
number  of  degrees  to  reposition. Example     "125.9". 

12)  Program  asks  "What  is  your  Spacecraft  Mass" 

a)  Enter  Spacecraft  Mass  including  the  Adaptor  Mass  in  kilograms. 
Example:  "3000.0" 

13)  Next  program  asks  "Please  enter  the  ISP  for  Apogee  Injection 
Example     "285.0" 
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14)  Next  program  asks  "Please  enter  the  efficiency  of  the  motor  for  station 
repositioning" 

Example     "0.97" 

15)  Next  program  asks  "Please  enter  the  efficiency  of  the  motor  for  satellite 
deorbit" 

Example     "0.98" 
The  program  then  lists  the  following  values: 
Pre  AMF  Fuel  Mass 
AMF  Fuel  Mass 
Post  AMF  Fuel  Mass 
Mass  change  Post  AMF 

16)  Next  program  asks  "Please  enter  the  ISP  for  orbit  maintenance" Example 
"285.0"       Then  the  screen  displays  the  following  ISP 

AMNS 
AMEW 
AM 
AM 

M  PRESS  URANT 

M, 


lSR 


ORBIT  CONTROL 


'MARGIN 


AM 


PROPELLENT 
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^STRUCTURE 


"^SPACECRAFT  BEGINNINC  OF  LIFE 


'PROPELLENT 


'PROPELLENT  PRESS  URANT 


lMASS  MARGIN 


'COMMUNICATIONS  PACKAGE 


^THERMAL  CONTROL 
^ATTITUDE  CONTROL 
M  MECHANICAL  SYSTEM 

MF 
Mi 

Mdrymass 

M, 

M( 

17)  Program  asks  "Enter  the  POWER  requirements  of  the  Spacecraft  in  watts. 

Example:  "2000.0" 

18)  Next  the  program  asks  you  to  chose  a  reference  satellite  from  those  listed 

T  Intelsat  V 

'2'  Intelsat  VI 

'3'  Intelsat  VII 

'4'  or  to  insert  your  own  values. 

Screen  displays  values  for: 

^HOUSEKEEPING 

P battery  LOAD 

°SOLAR  ARRAY  LOAD 
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lPAYLOAD 


lTRACKING  AND  TELEMETRY 


Power  Factor 

^ELECTRICAL  POWER  SUBSYSTEM 
Mp 

and  finally  lists  the  data  files  for  the  design  run. 
C.      ELECTRICAL  POWER  SYSTEM 

1)  To  start  the  program  type  "THERMAL"  at  the  dos  prompt. 

2)  The  program  will  ask  "Is  your  spacecraft  spin  stabilized".    If  it  is  answer 
with  a  character  'Y'     if  not  answer  with  a  character  'N' 

3)  Program  will  state  design  chosen 

a)  "Spacecraft  is  Spin  Stabilized"  or 

b)  "Spacecraft  is  Three  Axis  Stabilized" 

4)  Program  asks  "What  is  your  Spacecraft  Mass" 

a)  Enter  Spacecraft  Mass  including  the  Adaptor  Mass  in  kilograms. 
Example:  "3000.0" 

5)  Program  asks  "Enter  the  POWER  requirements  of  the  Spacecraft  in  watts. 

Example:  "2000.0" 

6)  Next  the  program  asks  you  to  chose  a  reference  satellite  from  those  listed 
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T  Intelsat  V 

'2'  Intelsat  VI 

'3'  Intelsat  VII 

'4'  or  to  insert  your  own  values. 

7)  The  program  lists  the  calculated  housekeeping  power  and  asks  if  you  want 
to  change   this  value  for  future  calculations.    If  you  want  to  change  it  enter  a 
character  'Y'  if  not,  depress  a  character  'N'. 

Program  then  lists  the  values  for  Payload  Power  and  Housekeeping  Power 

8)  Program  asks  "Enter  the  spacecraft  life  in  years"    Example     "10.0" 

9)  Program   lists  some  default  values  for: 

Minimum  discharge  bus  voltage  VDB 

Design  satellite  bus  voltage VBUS 

Bypass  diode  voltage  dropVDD 

EOL  battery  discharge  voltage V^c 

Satellite  eclipse  timeTEc 

Battery  depth  of  dischargeDOD 

Maximum  battery  discharge  voltageV 

Series  connected  diode  voltage  dropV 

Number  of  series  connected  diodesN^o 

Battery  charger  voltage  dropV^ 

Charge  discharge  voltage  dropVD 
To  change  any  of  the  listed  values  enter  a  character  'Y'  and  then  enter  the  number  of 
the  value  you  wish  to  change.    After  all  desired  changes  have  been  made  enter  a 
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character  'N' 

and  your  final  values  will  display  on  the  screen 

Example:  if  the  user  wants  to  change  first  the  user  enters  a  'Y'  then  enters  a  "6"  and 
the     Program  asks  "Please  enter  the  Depth  of  Discharge  used  for  the  batteries" 
10)     Program  asks  "Enter  the  number  of  electrical  buses  used  in  your  satellite" 
Example      "2" 


11)  Program  asks  "Please  enter  the  Solar  Cell  Test  Temperature"     Example 
"28.0" 

12)  Program  states  some  nice  to  know  information. 

13)  Program  states  some  calculated  environmental  design  values  and  asks  if  you 
want  to  use  them.     To  use  calculated  values  enter  a  T   to  input  your  values  enter  a 
'2'. 

14)  Program  displays  some  standard  solar  cell  parameters  and  asks  if  the  user  wants 
to  select  one  of  these  cells  or  enter  their  own  values.    User  enters  an  integer  number 
for  the  desired  choice.     Screen  then  displays  selected  or  input  parameters  for  user 
concurrence. 

15)  Screen  displays: 

Ns  -  Number  of  solar  cells  in  series 
VDB  -  Minimum  discharge  bus  voltage 
CELLAH  -  Battery  cell  ampere  hours 
PBUS  -  Bus  power 

Vmbc  _  Maximum  battery  charge  voltage 
VBC  -  Battery  charger  voltage  drop 
Boost  Voltage 
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Iequinox  -  Equinox  current 

Isolstice  "  Solstice  current 

PEC  -  Power  equinox  charge 

Psc  -  Power  solstice  charge 

Trecharge  "  Time  to  recharge  the  batteries 

Psalequ  "   Solar  array  design  load  equinox 

Psalsol  _   Solar  array  design  load  solstice 

Imp  -  Solar  cell  current  at  max  power  point  EOL  solstice 

Imp  -  Solar  cell  current  at  max  power  point  EOL  equinox 

Isolstice  -  Required  current  solstice  per  bus 

Iequinox  -  Required  current  equinox  per  bus 

VBUS  -  Bus  voltage 

NP  -  Number  of  solar  cells  in  parallel  for  each  bus 

VEOL  solstice  _  Solar  cell  voltage  at  EOL  summer  solstice 

Veol  equinox  "  Solar  cell  voltage  at  EOL  autumnal  equinox 

Ns  -  Number  of  solar  cells  in  series  for  each  bus 

IBUS  -  Current  per  bus  or  wing 

VBus  '  Voltage  per  bus  or  wing 

P-total  -  Total  power 

Nc  -  Number  of  series  cells  for  charge  array  solstice 

Ncss  -  Number  of  parallel  cells  for  charge  array  solstice 

NCEQ  -  Number  of  parallel  cells  for  charge  array  equinox 

Finally  the  data  file  names  appear  for  this  design  run. 


75 


SAMPLE  DATA  SHEET 

SPACECRAFT   MASS    SUMMARY 

Subsystem  Mass  (kg) 

Structure  278.4 

Thermal  52.7 

Propulsion  132.5 

Attitude  Contro  164.8 

Electric  Integration  76. 1 

Mechanical  Integration  27.3 

Mass  Margin  162.3 

Dry  Spacecraft  Mass  1622.8 

Propellent  Pressurant  384.3 

Apogee  Motor  Expendable  1192.9 

Spacecraft  Mass  at  Seperation  3200.0 

Communications  175.1 

Antenna  Reference  Mass  309.0 

Electric  Power  351.6 
Telemetry  and  Command  24.2 
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APPENDIX  B 
A.  MASS  PROPELLENT  BUDGET  AND  SYSTEM  MASS  SUMMARY 

—  Title  :  Velocity  Determination 

—  Author  :  David  Lashbrook 
--  Date               :  09  October  1991 
--  Revised  :  05  May  1992 

—  Compiler  :  OPENADA  EXT 

—  Description      :  This  procedure  determines  the  delta  velocity  for  insertion 

into  geosynchronous  orbit. 

with  TEXTIO,  MATH_LIB,GETDATA,  VIDEO; 
use   TEXTIO,  MATH_LIB,GETDATA; 

procedure  MASSPRO  is 

package  FLOATINOUT  is  new  FLOATJO(FLOAT); 

use       FLOATJNOUT; 

package  INTEGERINOUT  is  new  INTEGERIO(INTEGER); 

use       INTEGERINOUT; 

package  BOOLEANJNOUT  is  new  ENUMERATION  JO(BOOLE  AN); 

use       BOOLEANJNOUT; 

INCLINATIONRADIANS , 

DELTAVELOCITYNORTHSOUTH, 

DELTAVELOCITYEASTWEST, 

DELTAVELOCITYSTATIONREPOSITIONING, 

DELTAVELOCITY, 

X  :    FLOAT; 

EFF_NS  :  FLOAT  :=  0.91; 

EFF  EW  :  FLOAT  :=  0.99; 


I  :      INTEGER; 

MASSBEFOREAPOGEEBURN, 

SPACECRAFTMASSBEFOREAPOGEEBURN, 

COMMPACKAGEMASS, 

SPACECRAFTMASS  :      FLOAT; 

DRUMSPINNER  :      BOOLEAN:  =FALSE; 

OUTM  :FILE  TYPE; 
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procedure  GET_DATA(X  :  out  FLOAT)  is 
begin 
loop 
begin 
NEW_LINE(2); 
SET_COL(10); 

PUT_LINE("Enter  the  value  as  a  real  number  with  a 
decimal  point"); 

SET_COL(15); 

PUTLINEf  (Depress  CTRI/C  to  exit  the  program.)"); 
SETCOL(IO); 
GET(X); 
SKIPLINE; 
exit; 
exception 
when  DATAERROR  =  > 
SKIPLINE; 
NEWLINE; 
SETCOL(IO); 

PUT_LINE("Error..  You  must  enter  the  value  as  a 
real"); 

SETCOL(IO); 

PUT_LINE( "number  with  a  decimal  point,    ie  123.4"); 
SETCOL(IO); 
PUT_LINE( "Try  again."); 
NEWLINE; 
end; 
end  loop; 
end  GET_DATA; 

—    Reads  an  integer  input  from  the  keyboard 

procedure  GET_INTEGER(I  :  out  INTEGER)  is 
begin 
loop 
begin 
NEW_LINE(2); 
SETCOL(IO); 

PUT_LINE(" Enter  the  value  as  an  integer"); 
PUT_LINE(" (Depress  CTRL'C  to  exit  the  program.)"); 
SET_COL(10); 
GET(I); 
SKIPLINE(l); 
exit; 
exception 
when  DATAERROR  =  > 
SKIPLINE; 
NEWJJNE; 
SETCOL(IO); 

PUT_LINE("Error..  You  must  enter  the  value  as  a 
INTEGER"); 

SET_COL(10); 
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PUT_LINE("  NO!    decimal  point,    ie  123  "); 
SETCOL(IO); 

PUT_LINE("  Please  try  again."); 
NEWLINE; 
end; 
end  loop; 
end  GETINTEGER; 

procedure  GET_CHARACTER(CHAR  :  out  CHARACTER)  is 
begin 
loop 
begin 
NEW_LINE(2); 
SETCOL(IO); 

PUTLINEf  Enter   'Y'    for  YES  or    "); 
NEWLINE(l); 
SET_COL(10); 

PUT_LINE("  'N'    for  NO"); 

SET_COL(15); 

PUTLINEf  (Depress  CTRL'C  to  exit  the  program.)"); 
SETCOL(IO); 
GET(CHAR); 
SKIPLINE; 
exit; 
exception 
when  DATAERROR  -  > 
SKIP_LINE; 
NEW_LINE; 
SETCOL(IO); 

PUT_LINE( "Error..  You  must  enter  character"); 
SET_COL(10); 
PUT_LINE("Try  again."); 
NEW_LINE; 
end; 
end  loop; 
end  GETCHARACTER; 

procedure  DUAL_SPIN  (DRUM_SPINNER  :  in  out  BOOLEAN)  is 

y. 

Y, 
n, 
N, 
CHAR  :      CHARACTER; 

begin 

VIDEO.CLEARSCREEN; 
SETCOL(IO);  " 

PUT_LINE("Is  your  spacecraft  Spin  Stabilized  "); 
SET_COL(15); 
GETCHARACTER(char); 
if  CHAR  =  'Y'  or  CHAR  =  'y'  then 
DRUMSPINNER:  =TRUE; 
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if  DRUMSPINNER  =  TRUE  then 
VIDEO.  CLEARSCREEN; 

NEW_LINE(2); 

PUT  LJNE(  "******************************************************* 
***********  "\. 

NEW_LINE(2); 

SET_COL(10); 

PUTLINEC  Satellite  is  Spin  Stabilized"); 

NEW_LINE(2); 

PUT  LINE( "******************************************************* 
***********  "\. 

NEW_LINE(2); 
end  if; 
else 

VIDEO.  CLEARSCREEN; 
NEW_LINE(2); 

PUT_LINE( B******************************************************* 

NEW_LINE(2); 

SETCOL(IO); 

PUT_LINEC Satellite  is  Three  Axis  Stabilized"); 

NEW_LINE(2); 

PUT  LINE( "******************************************************* 

NEW_LINE(2); 
end  if; 
end  DUALSPIN; 

procedure  PRINTHEADER  is 
begin 
VIDEO.CLEARSCREEN; 
NEW_LINE(2); 
SETCOL(IO); 

PUT_LINE("This  program  walks  through  a  basic  design  of  a"); 
SETCOL(IO); 

PUT_LINE(" geosynchronous  satellite. "); 
NEW_LINE; 
end  PRINT  HEADER; 


procedure  VELOCITY  (INCLINATIONRADIANS     :  in     out   FLOAT; 
DELTAVELOCITY  :  in     out   FLOAT)  is 


RADIUSEARTH  :  FLOAT:  =7378.0; 

kilometers 
UE  :  constant  FLOAT:  =  3.986E  +  05;  -- 
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km**3/seconds**2 
GEOSYNCHRONOUSORBITRADIUS  :  constant  FLOAT:=4.2164E  +  04;  -  km 

APOGEEVELOCITY , 
PERIGEEVELOCITY, 

SYNCHRONOUSORBITVELOCITYCALCULATED, 
ANGULARVELOCITY, 
RADIUSAPOGEE, 
RADIUSPERIGEE, 
APOGEE_  ALTITUDE , 
PERIGEEALTITUDE, 
INCLINATION, 

ORBITRADIUS  :  FLOAT:  =0.0; 

kilometers 


SYNCHRONOUSORBITVELOCITY   :  constant  FLOAT:  =3.075; 
kilometers/second 


w, 

x, 

Y, 

z 

:  FLOAT:  =0.0; 

BETA, 

ALFA  DEGREES, 

ALFA 

:  FLOAT:  =0.0; 

idians 

I, 

N 

:  INTEGER; 

begin 
—  Read  apogee  radius  from  keyboard 
--  GETAPOGEERADIUS 
SETCOL(IO);  " 
NEW_LINE(2); 

NEWLINE; 

PUTLINE  ("  Please  enter  radius  at  apogee  "); 

NEW_LINE(2); 

SET_COL(15); 

GETDATA(RADIUSAPOGEE); 

VIDEO.  CLEARSCREEN; 

NEW_LINE(2); 

SETCOL(IO); 

PUT("Radius  at  apogee  is    "); 

SET_COL(60); 
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PUT(RADIUS_ APOGEE,  FORE  =  >  6,  AFT  =  >  4,  EXP  =  >  0); 
PUT("   km"); 

--   GET_PERIGEE_RADIUS  is 

NEW_LINE(2); 

PUT  linE(" ******************************************************* 

NEWLINE; 

SET_COL(10); 

PUT_LINE("Please  enter  radius  at  Perigee"); 

GETDATA(RADIUSPERIGEE); 

NEW_LINE(2); 

SET_COL(10); 

VIDEO.  CLEARSCREEN; 

PUT("Radius  at  perigee  is    "); 

SET_COL(60); 

PUT(RADIUS_PERIGEE,  FORE  =  >  6,  AFT  =  >  4,  EXP  =  >  0); 

PUT("    km"); 

--  VELOCITIES 

ORBIT_RADIUS:  =  (RADIUS_  APOGEE  +  RADIUS_PERIGEE)/2.0; 

NEW_LINE(2); 

SETCOL(IO); 

PUT(" Orbit  radius  is    "); 

SET_COL(60); 

PUT(ORBIT_RADIUS,  FORE  -  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    km"); 


PERIGEEVELOCITY:  =  SQRT((2.0*UE*RADIUS_APOGEE)/((RADIUS_APOGEE  +  RAD 
IUS_PERIGEE)*RADIUS_PERIGEE)); 

NEW_LINE(2); 

SETCOL(IO); 

PUT(" Perigee  velocity  is    "); 

SET_COL(60); 

PUT(PERIGEE_ VELOCITY,  FORE  =  >  6,  AFT  =  >  4,  EXP  =  >  0); 

PUT("  km/sec"); 


APOGEE_VELOCITY:=PERIGEE_  VELOCITY  *(RADIUS_PERIGEE/RADIUS_  APOGEE); 
NEW_LINE(2); 
SETCOL(IO); 
PUT("Apogee  velocity  is    "); 
SET_COL(60); 

PUT(APOGEE_VELOCITY,  FORE  =  >  6,  AFT  =  >  4,  EXP  =  >  0); 
PUT("   km/sec"); 

ANGULAR_VELOCITY:=  RADIUS_APOGEE*APOGEE_VELOCITY; 

NEW_LINE(2); 

SETCOL(IO); 
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PUT(" Angular  (h)  velocity  is    "); 
SET_COL(60); 

PUT(ANGULAR_VELOCITY,  FORE  =  >  6,  AFT  =  >  4,  EXP  =  >  0); 

SYNCHRONOUSORBITVELOCITYCALCULATED:  =  SQRT 

(UE/GEOSYNCHRONOUSORBITRADIUS); 
NEW_LINE(2); 
SETCOL(IO); 

PUT(" Geosynchronous  orbit  velocity  is    "); 
SET_COL(60); 

PUT(SYNCHRONOUS_ORBIT_VELOCITY  CALCULATED,FORE  =  >6,AFT 
=  >4,EXP=>0); 

PUT("    km/sec  ");NEW_LINE(2); 


--  FINDANGLES 
NEW_LINE(2); 

PUT  LINEC "******************************************************* 

NEW_LINE(2); 

SETCOL(IO); 

PUT_LINE("  Please  enter  the  inclination  the  launch"); 

SET_COL(10); 

PUT_LINE( "vehicle  will  insert  the  spacecraft."); 

NEW_LINE(2); 

GET_DATA(INCLINATION); 

INCLINATION_RADIANS:=INCLINATION*PI/180.0; 

VIDEO.  CLEARSCREEN; 

NEW_LINE(2); 

SETCOL(IO); 

PUT(" Inclination  in  degrees  is    "); 

SET_COL(60); 

PUT(INCLINATION,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

NEW_LINE(2); 

SET_COL(10); 

PUT("Inclination  in  radians  is    "); 

SET_COL(60); 

PUT(INCLINATION_RADIANS,  FORE  =  >  6,  AFT  =  >  5,  EXP  =  >  0); 

ALFA:  =  ATAN((APOGEE_VELOCITY*SIN(INCLINATION_RADI  ANS)) 

/(SYNCHRONOUS_ORBIT_VELOCITY-APOGEE_VELOCITY*COS(INCLINATION_RADI 

ANS))); 

ALF  ADEGREES :  =  ABS(  ALF  A*  1 80.0/PI) ; 

NEW_LINE(2); 

SETCOL(IO); 

PUT(" Insertion  angle  in  degrees  (ALFA)  is    "); 
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SET_COL(60); 

PUT(ALFA_DEGREES,  FORE  =  >  6,  AFT  =>  2,  EXP  =  >  0); 

--  BETA:  =  ABS(180.0-(INCLINATION  +  ALFA_DEGREES)); 

--  NEW_LINE(2); 

--  SET_COL(10); 

--  PUT( "Triangular  angle  (BETA)  is    "); 

-  PUT(BETA,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 


--  DELTA  VEL 


DELTAVELOCITY:  =  SQRT(((APOGEE_VELOCITY*SIN(INCLINATION_RADlANS))* 
♦2) 

+  ((S  YNCHRONOUSORBITVELOCITY 

-APOGEE_VELOCITY*COS(INCLINATION_RADIANS))**2)); 

NEW_LINE(2); 

SETCOL(IO); 

PUT("Delta  velocity  for  insertion  into  geo  is    "); 

SET_COL(60); 

PUT(DELTA_VELOCITY,  FORE  =  >  6,  AFT  =  >  4,  EXP  =  >  0); 

PUT("    km/sec"); 

NEW_LINE(2); 

NEW_LINE(2); 

end  VELOCITY; 

procedure  STATIONKEEPINGREPOSITIONING 

(DELTAVELOCITYNORTHSOUTH  :  in  out  FLOAT; 

DELTA_VELOCITY_EAST_WEST  :  in  out  FLOAT; 

DELTA_VELOCITY_STATION_REPOSITIONING    :  in  out  FLOAT; 
EFFNS  :  in  out  FLOAT; 

EFFEW  :  in  out  FLOAT)   is 

AVERAGEINCLINATIONDRIFTYEAR, 

AVERAGEDRIFTPERYEAR, 

AVERAGEDRIFTYEAR, 

ADPY, 

LAMDADOTDOT, 

LAMDA, 

DELTALAMDA, 

OPERATINGLONGITUDE, 

LONG1TUDINALDRIFTACCELERATION, 

TOLERANCE, 

TOLERANCERADIANS, 
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INCLINATIONDRIFTYEAR     :  FLOAT  :=0.0; 
NORTHSOUTHMANEUVERS, 
NORTHSOUTHMANEUVERSINTEGER, 
TIMENS, 
FUELMASSNS, 
TIME_EW, 
ISPFUEL, 

EASTWESTMANEUVERS, 
FUELMASSEW, 

DELTAVELOCITYTOTAL,  --  delta  velocity  required  for  both 
east  west 

—  and  north  south  station  keeping 

— EFF_NS,      —    thruster  efficiency  north  south  station 
keeping 

--EFFEW,      ~    thruster  efficiency  east  west  station 
keeping 

X, 

EFFDOR,     —    thruster  efficiency  de-orbit 
EFFSR,      —   thruster  efficiency  station  repositioning 

STABLELONGITUDE, 
DAYSTOREPOSITION, 
DEGREESTOREPOSITION, 
DELTAFUELSTATIONREPOSITIONING, 
EFF_STATION_REPOSITION        :  FLOAT; 

WORSTLONGITUDINALDRJFTACCELERATION  :  constant  FLOAT 
-0.00168; 

STABLE_LONGITUDE_EAST  :  constant  :=  75.0; 
STABLELONGITUDEWEST  :  constant  :=  255.0; 
GRAVITY  :  constant  :  =  9.81;        --m/s 

FIRST_YEAR  :  INTEGER  :=  1991; 

LAST_YEAR    :  INTEGER  :=  2003; 

N, 

I, 

CHOICE, 

SPACECRAFTLIFE  :  INTEGER; 

type  DRIFT_PER_YEAR  is  array  (FIRSTYEAR..LASTYEAR)  of 
FLOAT; 

DRIFT:  DRIFTPERYEAR 

:  =  (0.897,0.867,0.834,0.802,0.775,0.756,0.748,0.752, 

0.767,0.792,0.823,0.856,0.888); 

-  1991  through  2003 

begin 

NEW_LINE(2); 
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PUT  TjNEf "******************************************************************")' 

NEW_LINE(2); 

SETCOL(IO); 

PUT_LINE("  Enter  the  tolerance  of  spacecraft  LATITUDE  as  real 
number."); 

GET_DATA(TOLERANCE); 

VIDEO.  CLEARSCREEN; 

PUT( "Tolerance  is  "); 

set_col(60); 

PUT(TOLERANCE,FORE=  >6,AFT=  >2,EXP=  >0);PUT("   deg"); 

TOLERANCERADIANS:  =TOLERANCE*PI/ 180.0; 

SETCOL(IO); 


<  <  YEAR  >  > 

NEW_LINE(2); 

PUT  LINEf "******************************************************************")' 
NEWLINE; 

PUT_LINE(  "Please  enter  the  beginning  year  as  an  integer"); 
SET_COL(5); 

GETINTEGER  (FIRSTYEAR); 
VIDEO.  CLEARSCREEN; 
if  FIRSTYEAR  <  1991  then 

VIDEO.CLEARSCREEN; 

PUT_LINE( "ERROR First  Year  is  lower  than  1991"); 

PUT_LINE("Please  Try  Again."); 

NEW_LINE(3); 

goto  year; 
end  if; 

SET_COL(10); 
NEW_LINE(2); 

PUT("First  year  of  lifetime  is"); 
NEW_LINE(2); 

PUT  LINE( "******************************************************************")■ 
NEW_LINE(2); 
SET_COL(60); 

PUT(FIRST_YEAR,WIDTH-  >5); 
NEW_LINE(2); 
SET_COL(5); 

<<YEARA>> 

PUT_LINE("Please  enter  the  ending  year  as  an  integer"); 

SET_COL(5); 

GETINTEGER  (LASTYEAR); 

VIDEO.CLEARSCREEN; 

NEW_LINE(2); 
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PUT  LINE(" ******************************************************* 
***********  "\. 

NEWLINE; 

ifLASTYEAR  <  FIRSTYEAR   then 

VIDEO.  CLE  ARSCREEN; 

PUT_LINE( "ERROR :Last  Year  is  lower  than  First 

Year"); 

PUT_LINE(" Please  Try  Again."); 

NEW_LINE(3); 

goto  YEAR; 
elsif  LASTYEAR  >  2003   then 

VIDEO.  CLE  ARSCREEN; 

PUT_LINE( "ERROR Last  Year  is  greater  than  2003"); 

PUT_LINE(  "Please  Try  Again."); 

NEW_LINE(3); 

goto  YEARA; 
end  if; 

SET_COL(5); 

PUT("Last  year  of  expected  lifetime  is"); 
SET_COL(60); 

PUT(LAST_YEAR,  WIDTH  =  >5); 
NEW_LINE(2); 

PUT  LINE( "******************************************************* 
***********  «\. 

NEW_LINE(2); 

SPACECRAFT_LIFE:=LAST_YEAR-FIRST_YEAR+1;  --  Total  years 
includes  ending  year 
NEW_LINE(2); 
SET_COL(5); 
PUT(" Spacecraft  life  is  "); 
PUT(SPACECRAFT_LIFE,  width  =  >3); 
PUT("  years"); 

PUT("     (launch  year  counts  as  one  year)"); 
NEW_LINE(2); 

NEW_LINE(2); 

SET_COL(10);PUT("TO  CONTINUE  ENTER  ANY  INTEGER"); 
GETINTEGER(I); 


VIDEO.  CLEARSCREEN; 

PUT  LINE( "******************************************************* 
***********"\. 
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NEWLINE; 

SET_COL(5); 

PUT("Drift  per  year  "); 

while  FIRSTYEAR  <  =  LASTYEAR  loop 

INCLINATION  DRIFT  YEAR:  =  INCLINATION  DRIFT  YEAR  +  DRIFT(FIRST  YEAR); 


SET_COL(5); 

PUT(FIRST_YEAR, WIDTH  =>  5); 

SET_COL(20); 

PUT(DRIFT(FIRST_YEAR),  FORE=  >  1,  AFT=  >  4,  EXP  =  >0); 

FIRSTYEAR:  =  FIRSTYEAR  + 1 ; 

end  loop; 
NEW_LINE(2); 

I    \J  1        Lj  J  1 N  L  \ 

•p  1*  I*  I*  1*  I*  -t"  T*  *p  ■!■  *(*       \» 

NEW_LINE(2); 

SET_COL(10);PUT("TO  CONTINUE  ENTER  ANY  INTEGER"); 
GETINTEGER(I); 


AVERAGEDRIFTPERYEAR:  =  INCLINATION_DRIFT_YEAR/FLOAT(SPACECRAFT_L 
IFE); 

NEW_LINE(2); 

ADPY:  =  AVERAGE_DRIFT_PER_YEAR; 

SET_COL(5); 

NEW_LINE(2); 

PUT  LJNE(  "******************************************************* 

NEW_LINE(2); 

VIDEO.CLEARSCREEN; 
SET_COL(5); 

PUT("  Average  drift  rate  per  year  is  "); 

SET_COL(60); 

PUT(ADPY,  FORE  =  >  4,  AFT  =  >  4,  EXP  =  >  0); 

PUT("    degrees"); 

TIME_NS:  =  (2.0*TOLERANCE/ADPY)*365.25; 

NEW_LINE(2); 

SET_COL(5); 

PUT("  Time  spent  in  north  south  station  keeping  is  "); 

SET_COL(60); 

PUT(TIME_NS,  FORE  -  >  4,  AFT  =  >  4,  EXP  =  >  0); 

PUT("    days"); 


88 


NORTH_SOUTH_MANEUVERS:  =  (FLOAT(SPACECRAFT_LIFE)*ADPY)/(2.0*TOLERAN 
CE); 

NEW_LINE(2); 

SET_COL(5); 

PUT("  Number  of  north  south  maneuvers  is  (REAL)"); 

SET_COL(60); 

PUT(NORTH_SOUTH_MANEUVERS,  FORE  =  >  4,  AFT  =  >  4,  EXP  =  >  0); 

N:  =  INTEGER(NORTH_SOUTH_MANEUVERS); 

NORTH_SOUTH_MANEUVERS_INTEGER:=FLOAT(N); 

-NEW_LINE(2); 

-SET_COL(5); 

--PUT("  N"); 

-PUT(NORTH_SOUTH_MANEUVERS,  FORE=  >4,AFT=  >4,EXP  =  >  0); 


if  NORTHSOUTHMANEUVERSINTEGER  <  NORTHSOUTHMANEUVERS   then 

NORTH_SOUTH_MANEUVERS_INTEGER:=NORTH_SOUTH_MANEUVERS_INTEGER+1.0; 
end  if; 

NORTH_SOUTH_MANEUVERS:=NORTH_SOUTH_MANEUVERS_INTEGER; 

NEWLINE(l); 

SET_COL(5); 

PUT("  Number  of  north  south  maneuvers  is  (ROUND  UP)"); 

SET_COL(60); 

PUT(NORTH_SOUTH_MANEUVERS,  FORE  =  >  4,  AFT  =  >  4,  EXP  -  >  0); 

DELTAVELOCITYNORTHSOUTH:  = 

NORTH_SOUTH_MANEUVERS*6.148*SIN(TOLERANCE_RADIANS)*1000.0; 

NEW_LINE(2); 

SET_COL(5); 

PUT("  Delta  velocity  north  south  is"); 

SET_COL(60); 

PUT(DELTA_VELOCITY_NORTH_SOUTH,  FORE  =  >  4,  AFT  =  >  4,  EXP  =  > 

0); 

PUT("    m/sec"); 
NEW_LINE(2); 

PUT   TTMFC "************************************** ***************** 

NEW_LINE(2); 


SET_COL(10);PUT("TO  CONTINUE  ENTER  ANY  INTEGER"); 
GETJNTEGER(I); 


--  East  West  station  keeping 
VIDEO.CLEARSCREEN; 
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NEW_LINE(2); 

PUT  LINEf "******************************************************* 
***********  »\. 

NEW_LINE(2); 

SET_COL(5); 

PUT_LINE(  "Enter  the  spacecraft  OPERATING  LONGITUDE"); 

NEW_LINE(2); 

SET_COL(5); 

GETDATA(OPERATINGLONGITUDE); 

VIDEO.CLEARSCREEN; 

NEW_LINE(2); 

SETCOL(IO); 

PUT(" Operating  Longitude  is  "); 

PUT(OPERATING_LONGITUDE,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    degrees  longitude"); 

NEW_LINE(2); 

PUT  LINET" ******************************************************* 
***********"\. 

NEW_LINE(2); 
SET_COL(5); 

if  OPERATINGLONGITUDE  >  345.0000 

and  OPERATINGLONGITUDE  <  =360.0  then 
DELTA_LAMDA:  =  SIN(2.0*PI/180.0* 

(360.0-OPERATING_LONGITUDE  +  STABLE_LONGITUDE_EAST)); 
STABLELONGITUDE:  =  STABLE_LONGITUDE_EAST; 

elsif  OPERATINGLONGITUDE  >  =  0.0 

and  OPERATINGLONGITUDE  <  165.0  and  OPERATINGLONGITUDE  /= 
75.0  then 

DELTA_LAMDA:  =  SIN(2.0*PI/180.0* 

(OPERATING_LONGITUDE-STABLE_LONGITUDE_EAST)); 
STABLELONGITUDE:  =  STABLELONGITUDEEAST; 

elsif  OPERATINGLONGITUDE  >  165.0 

and  OPERATINGLONGITUDE  <  345.0  and  OPERATINGLONGITUDE  /= 
255.0  then 

DELTA_LAMDA:  =  SIN(2.0*PI/ 1 80.0* 

(OPERATINGLONGITUDE-STABLELONGITUDEWEST)); 
STABLELONGITUDE:  =  STABLELONGITUDEWEST; 

elsif  OPERATINGLONGITUDE  =  165.0  or  OPERATINGLONGITUDE  = 
345.0   then 

DELTALAMDA:  =  WORST_LONGITUDINAL_DRIFT_ACCELERATION; 

SET_COL(5); 

PUT("Delta  Lamda  is  "); 

PUT(DELTA_LAMDA,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    degrees"); 
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elsif  OPERATINGLONGITUDE  =  255.0  or  OPERATINGLONGITUDE  = 
75.0  then 

SET_COL(5); 

PUT("  Stable  longitude  so  time  between  east-west  is"); 

SET_COL(5);PUT( "essentially  infinite"); 

TIME_EW:=0.0; 

NEW_LINE(2); 

SET_COL(5); 

PUT("  Time  between  east  west  keeping  is  "); 

PUT(TIME_EW,  FORE  =  >  4,  AFT  =  >  4,  EXP  =  >  0); 

NEW_LINE(2); 

SET_COL(5); 

LAMDADOTDOT:  =  0.0; 

SET_COL(5);  " 

PUT("Delta  Lamda  DOUBLE  DOT  is  "); 

PUT(LAMDA_DOT_DOT,FORE  =  >  1,AFT=  >7,EXP  =  >0); 

PUT("    degrees/dayA2"); 

end  if; 

ifOPERATING_LONGITUDE/=  75.0   then 
if  OPERATINGLONGITUDE/^  255.0  then 

LAMDA_DOT_DOT:=ABS((WORST_LONGITUDINAL_DRIFT_ACCELERATION)*(DELTA 
_LAMDA)); 

NEW_LINE(2); 

SET_COL(5); 

PUT("Delta  Lamda  DOUBLE  DOT  is  "); 

SET_COL(50); 

PUT(LAMDA_DOT_DOT,FORE=  >  1,AFT=  >7,EXP=  >0); 

PUT("    degrees/dayA2"); 


--  Average  time  interval  between  east-west  station  keeping 
days 

TIME_EW:  =  4.0*SQRT((TOLERANCE/LAMDA_DOT_DOT)); 
NEW_LINE(2); 
SET_COL(5); 

PUT("  Time  between  east  west  keeping  is  "); 
SET_COL(50); 

PUT(TIME_EW,  FORE  =  >  4,  AFT  =  >  4,  EXP  =  >  0); 
PUT("    days"); 
end  if; 
end  if; 


DELTAJVELOCITY  EAST  WEST:  =ABS(1.74*SIN(2.0*PI/ 180.0 
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*(OPERATING_LONGITUDE-STABLE_LONGITUDE))*FLOAT(SPACECRAFT_LIFE)); 

NEW_LINE(2); 

SET_COL(5); 

PUT("  Delta  velocity  east  west  is"); 

SET_COL(50); 

PUT(DELTA_VELOCITY_EAST_WEST,  FORE  =  >  4,  AFT  =  >  4,  EXP  -  >  0); 

PUT("   m/sec"); 


--  Total  delta  velocity  required 

NEW_LINE(2); 

SET_COL(5); 

PUT_LINE("The  default  propulsion  efficiency  in  the  N-S 
direction  is   0.91"); 

SET_COL(5); 

SET_COL(5); 

PUT_LINE("The  default  propulsion  efficiency  in  the  E-W 
direction  is   0.99"); 

NEW_LINE(2); 

SET_COL(5); 

PUT_LINE( "enter  an  integer    '1'     to  CHANGE  default  values"); 

NEW_LINE(2); 

SET_COL(5); 

PUT_LINE("To  accept  default  values  enter  integer   2  "); 

GETINTEGER(CHOICE); 

case  CHOICE  is 

when  1  =  > 

VIDEO.  CLEARSCREEN ; 

SET_COL(5); 

PUT_LINE( "Please  enter  desired  N-S  propulsion  efficiency"); 

SET_COL(5); 

GET_DATA(EFF_NS); 

NEW_LINE(2); 

SET_COL(5); 

PUT_LINE("Now  enter  desired  E-W  propulsion  efficiency"); 

SET_COL(5); 

GET_D  AT  A(EFF_E  W) ; 

VIDEO.  CLE  ARSCREEN ; 

when  OTHERS  -  > 

VIDEO.  CLEARSCREEN; 

NEW_LINE(2); 

SET_COL(5); 

PUTLINE  ("Understand  no  changes  desired"); 

NEW_LINE(3); 
end  case; 

DELTAVELOCITYTOTAL:  =  (DELTAVELOCITYNORTHSOUTH/EFFNS) 

+  (DELTA_VELOCITY_EAST_WEST/EFF_EW); 
NEW_LINE(2); 
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SETCOL(IO); 

PUT("Delta  velocity  total  is  "); 

PUT(DELTA_VELOCITY_TOTAL,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT  ("    km/sec"); 

NEW_LINE(2); 

PUT  LINE( "******************************************************* 
***********«\. 

NEW_LINE(2); 

SET_COL(10);PUT("TO  CONTINUE  ENTER  ANY  INTEGER"); 
GETINTEGER(I); 

VIDEO.  CLE  ARSCREEN; 


-  STATION  REPOSITIONING 
SET_COL(5); 

PUT_LINE("  Enter  the  numbers  of  days  to  reposition"); 

SET_COL(5); 

GETDATA(DAYSTOREPOSITION); 

VIDEO .  CLE  ARSCREEN ; 

NEW_LINE(2); 

SET_COL(10); 

PUT("Number  of  Days  to  Reposition  is  "); 

SET_COL(50); 

PUT(DAYS_TO_REPOSITION,  FORE  =  >  6,  AFT  =  >  2,  EXP  -  >  0); 

PUT  ("    days"); 

NEW_LINE(2); 

PUT  LINE( "******************************************************* 
*********** "  \  • 

NEW_LINE(2); 
SET_COL(5); 

—  Get  how  many  degrees  to  reposition  satellite 

SET_COL(5); 

PUT_LINE( "Enter  the  number  of  degrees  to  reposition"); 

SET_COL(5); 

PUT_LINE("as  real  number."); 

GET_DATA(DEGREES_TO_REPOSITION); 

VIDEO. CLEARSCREEN;  " 

NEW_LINE(2); 

PUT  LINEf "******************************************************* 
***********»\. 

NEW_LINE(2); 

SETCOL(IO); 

PUT(" Number  of  Degrees  to  Reposition  is  "); 

SET_COL(50); 

PUT(DEGREES_TO_REPOSITION,  FORE  =  >  6,  AFT  =  >  2,  EXP  -  >  0); 

PUT("    degrees"); 
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—  Delta  velocity  to  reposition  satellite 

DELTA_VELOCITY_STATION_REPOSITIONING:  =  5.66* 
DEGREESTOREPOSITION/DAYSTOREPOSITION; 
NEW_LINE(2); 
SET_COL(10); 

PUT("Delta  velocity  for  station  repositioning  is"); 
SET_COL(50); 

PUT(DELTA_VELOCITY_STATION_REPOSITIONING,  FORE  =  >  6,  AFT  =  >  2, 
EXP  -  >  0); 
PUT("    m/sec"); 

NEW_LINE(2); 

PUT  LJNE(^  ******************************************************* 

NEW_LINE(2); 


end  ST  ATIONKEEPINGREPOSITIONING ; 

procedure  MASS 

(DELTAVELOCITYNORTHSOUTH  :  in  FLOAT; 

DELTAVELOCITYEASTWEST  :  in  FLOAT; 

DELTAVELOCITYSTATIONREPOSITIONING    :  in  FLOAT; 

DELTAVELOCITY  :  in  FLOAT; 

EFFNS  :  in  FLOAT; 

EFFEW  :  in  FLOAT; 

SPACECRAFTMASSBEFOREAPOGEEBURN      :  in  out       FLOAT; 
COMM_PACKAGE_MASS  :  in  out       FLOAT) 

is 


gravity  :  constant  FLOAT  :=  9.81;  --  m/s 

Y  :  constant  FLOAT  :=  7.0; 

constant 

ADAPTOR  :  constant  FLOAT  :=  45.0; 

ISP_ORBIT  :  FLOAT  :=  278.0;  --  sec 

MASSREFERENCE  :  FLOAT  :=  1900.0; 

kilograms 

SPACECRAFT : FLOAT; 

PREAMFREFERENCE  :  FLOAT  :=  7.0;  --  kg 

AMFREFERENCE  :  FLOAT  :=  861.0;  --kg 

POSTAMFREFERENCE:  FLOAT  :=  29.9;  -kg 

MASS_CHANGE_POST_AMF:FLOAT         :=  0.0; 
PRESSURANT_REF:  FLOAT  :=5.0;  --kg 

MARGINREF:  FLOAT  :=2.0;  --kg 

ONORBITCONTROLREF  :  FLOAT       :=  118.0;  -kg 

ATTITUDECONTROLREF  :  FLOAT       :=  12.3;  -kg 

ISPAMF  :  FLOAT  :=  300.0;  -  sec 

DEORBITREFERENCE  :  FLOAT  :=  5.2;  -kg 
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PRESSURANTREFERENCE:  FLOAT       :=5.0;  -kg 

MARGIN_REFERENCE  :  FLOAT  :  =  2.0;  --  kg 

DELTA  VELOCITY  DEORBIT:FLOAT      :=  7.0; 


SCALEF  ACTOR  :  constant  FLOAT     :=  1.9; 
FACTOR  :  constant  FLOAT  :=  1.05; 

MASSRATIO  :  FLOAT; 

PREAMF, 

AMF, 

POSTAMF, 

BOLMASS, 

ONORBITCONTROL, 

ATTITUDECONTROL, 

DEORBIT, 

PRESSURANT, 

MARGIN, 


SPACECRAFTDRYMASS, 
SPACECRAFTBOLMASS, 

APOGEEMOTORIMPULSE, 

ORBITIMPULSE, 

MASSSPACECRAFT, 

SPACECRAFTMASS, 

MASS_POST_AMF, 

MASS_EW_STATION_KEEPING, 

MASSNSSTATIONKEEPING, 

MASSSTATIONREPOSITIONING, 

MASSDEORBIT, 

MASSDRY, 

MASSINITIAL, 

MASSMARGIN, 

MASSPROPELLENTPRESSURANT, 

PROPELLENTMARGIN, 

PROPELLENT_MASS, 

PROPELLENTEXPENDITURE, 

PROPELLENTPRESSURANTMASS, 

PROPELLENTMASSCHANGE, 

PROPELLENTEXPENDITURE, 

BYPROPELLENTMASS, 

STRUCTURALMASS, 
THERM  ALCONTROLMASS, 
ELECTRIC  AL_SYSTEM_M  ASS, 
MECHANICAL_SYSTEM_MASS, 
DRYMASS, 
PAYLOAD  POWER, 
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HOUSEKEEPINGPOWER, 

BATTERYLOAD, 

SOL  ARARRA  YLOAD , 

ELECTRICALPOWERMASS, 

EFFSTATIONREPOSITIONING , 

EFFDEORBIT, 

PROPELLENTMARGIN, 

X, 

z, 

ONORBITCONTROL, 

TRACKINGTELEMETRY  :  FLOAT  ; 

N  :  INTEGER ; 

"DELTA_VELOCITY  :  constant  FLOAT  :=  1.52  ; 

OUTF  :FILE  TYPE; 


begin 


SETCOL(IO); 

PUT_LINE(  "Enter  the  mass  of  the  spacecraft  in  kilograms"); 

SET_COL(10); 

GET_DATA(SPACECRAFT_MASS_BEFORE_APOGEE_BURN); 

NEW_LINE(2); 

SET_COL(15); 

VIDEO.CLEARSCREEN; 

NEW_LINE(2); 

PUT(" Spacecraft  mass  before  apogee  motor  burn  is    "); 

PUT(SPACECRAFT_MASS_BEFORE_APOGEE_BURN,  FORE  -  >  6,  AFT  =  >  2,  EXP 

=  >  0); 

PUT("    kgs"); 

NEW_LINE(2); 

NEW_LINE(2); 

SETCOL(IO); 

PUT("What  is  the  specific  impulse  for  apogee  injection"); 

SET_COL(15); 

get_data(APOGEE_MOTOR_IMPULSE); 

VIDEO.  CLEARSCREEN; 

PUT  I_INE( "******************************************************* 

NEWJJNE; 

PUT("Specific  Impulse  of  Apogee  injection  is    "); 
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PUT(APOGEE_MOTOR_IMPULSE,  FORE  =  >4  ,  AFT  =  >  1,  EXP  =  >  0); 
PUT("    sec"); 

NEW_LINE(2); 

PUT  LiNE(  "******************************************************* 
NEW_LINE(2); 


--SPACECRAFT_MASS_BEFORE_APOGEE_BURN:=MASS_BEFORE_APOGEE_BURN-ADA 
PTOR; 

SET_COL(10); 

PUT_LINE("     This  mass  budget  uses  modified  INTELSAT  V"); 

SET_COL(10); 

PUT_LINE  ("data  for  a  premliminary  estimation  purposes"); 

SETCOL(IO); 

PUT_LINE("the  reference  data  to  a  different  satellite 
simply"); 

SETCOL(IO); 

PUT_LINE  ("changing  the  values  labelled  reference  in  the"); 

SETCOL(IO); 

PUTLINE  ("declaration  statements"); 

NEW_LINE(3); 
SET_COL(5); 

PUT("Please  enter  the  value  for  efficiency  of  station 
repositioning"); 

SET_COL(15); 

get_data(EFF_STATION_REPOSITIONING); 

VIDEO .  CLEARSCREEN ; 

NEW_LINE(2); 

SET_COL(10); 

PUT( "Efficiency  of  STATION  REPOSITIONING  is   "); 

SET_COL(50); 

PUT(EFF_STATION_REPOSITIONING,  FORE  =  >  1  ,  AFT  =  >  3,  EXP  -  >  0); 

NEW_LINE(2); 

PUT  LINEt  "******************************************************* 

NEW_LINE(2); 
SET_COL(5); 

PUT("Please  enter  the  value  for  efficiency  of  satellite 
deorbit"); 
SET_COL(15); 
getdata(EFFDEORBIT) ; 
VIDEO.  CLEARSCREEN; 
NEW_LINE(2); 
SET_COL(15); 

PUT("Efficiency  of  deorbit  is    "); 
PUT(EFF_DEORBIT,  FORE  =  >  1  ,  AFT  -  >  3,  EXP  =  >  0); 
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NEW_LINE(2); 
PUT  LINE( "******************************************************* 

NEW_LINE(2); 
MASS_RATIO:=SPACECRAFT_MASS_BEFORE_APOGEE_BURN/M ASS  REFERENCE; 

NEW_LINE(2); 

SET_COL(10); 

PUT("Mass  Ratio  is    "); 

SET_COL(50); 

PUT(MASS_RATIO  ,  FORE  =  >  6,  AFT  =>  2,  EXP  =  >  0); 

SETCOL(IO);  PUT("TO  CONTINUE  ENTER  ANY  INTEGER"); 
GET_INTEGER(I); 

VIDEO.CLEARSCREEN; 

PRE_AMF:  =  MASS_RATIO*PRE_AMF_REFERENCE; 
NEW_LINE(2); 
SET_COL(10); 
PUT("Pre  amf  is  "); 
SET_COL(50); 

PUT(PRE_AMF  ,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 
PUT("    kgs"); 

AMF:  =  SPACECRAFTMASSBEFOREAPOGEEBURN 

*(1.0-EXP((-DELTA_VELOCITY*1000.0)/(APOGEE_MOTOR_IMPULSE*GRAVITY) 

)); 

NEW_LINE(2); 

SETCOL(IO); 

PUT("AMF  is    "); 

SET_COL(50); 

PUT(AMF  ,  FORE  -  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kgs"); 


POST  AMF:  =  SPACECRAFT  MASS  BEFORE  APOGEE  BURN-AMF-PRE  AMF; 


NEW_LINE(2); 

SETCOL(IO); 

PUT("Post  AMF  is    "); 

SET_COL(50); 

PUT(POST_AMF  ,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kgs"); 

MASS_CHANGE_POST_AMF:  =  MASS_RATIO*POST_AMF_REFERENCE; 
NEW_LINE(2); 

98 


SETCOL(IO); 

PUTfMass  Change  POST  AMF  is    "); 

SET_COL(50); 

PUT(MASS_CHANGE_POST_AMF,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kgs"); 

NEW_LINE(2); 
PUT  ]^\}^^(" ******************************************************* 

NEW_LINE(2); 


SET_COL(10); 
PUT("What  is  the  specific  impulse  for  ORBIT  maintainance"); 
SET_COL(15); 
getdata(ORBITJMPULSE); 
VIDEO.  CLEARSCREEN; 

PUT("Specific  Impulse  of  orbit  maintainance  is    "); 
SET_COL(60); 

PUT(ORBIT_IMPULSE,  FORE  =  >4  ,  AFT  -  >  1,  EXP  =  >  0); 
PUT("    sec"); 
NEWLINE(l); 

PUT  LiNE(  "******************************************************* 

MASS_NS_STATION_KEEPING:=POST_AMF*(1.0- 
EXP((-DELTA_VELOCITY_NORTH_SOUTH)/(ORBIT_IMPULSE*GRAVITY*EFF_NS)) 

); 

NEWLINE(l); 

SETCOL(IO); 

PUT("Change  in  mass  for  north  south  station  keeping  is"); 

SET_COL(60); 

PUT(MASS_NS_STATION_KEEPING,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kgs"); 


MASS_EW_STATION_KEEPING:  =  (POST_AMF-MASS_NS_STATION_KEEPING)*(1.0- 

EXP((-DELTA_VELOCITY_EAST_WEST) 

/(ORBIT_IMPULSE*GRAVITY*EFF_EW))); 
NEW_LINE(2); 
SETCOL(IO); 

PUT("Change  in  mass  for  east  west  station  keeping  is"); 
SET_COL(60); 

PUT(MASS_EW_STATION_KEEPING,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 
PUT("    kgs"); 

MASS_STATION_REPOSITIONING:=(POST_AMF-MASS_NS_STATION_KEEPING 
-MASS_EW_STATION_KEEPING)*(1.0- 
EXP((-DELTA_VELOCITY_STATION_REPOSITIONING) 
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/(ORBIT_IMPULSE*GRAVITY*EFF_STATION_REPOSITIONING))); 
NEW_LINE(2); 
SET_COL(10); 

PUT("Change  in  mass  for  station  repositioning  is"); 
SET_COL(60); 
PUT(MASS_STATION  REPOSITIONING,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  > 

0); 

PUT("    kgs"); 


ONORBITCONTROL:  =  POST_AMF*(  1.0 

-EXP((-DELTA_VELOCITY_DEORBIT)/(ORBIT_IMPULSE*GRAVITY))); 

NEW_LINE(2); 

SETCOL(IO); 

PUTfOn  orbit  control  is    "); 

SET_COL(60); 

PUT(ON_ORBIT_CONTROL  ,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUTC    kgs"); 


MASSDEORBIT:  =  (POST_AMF-M  ASS_NS_STATION_KEEPING 
-MASS_EW_STATION_KEEPING-MASS_STATION_REPOSITIONING)*(1.0- 

EXP((-DELTA_VELOCITY_DEORBIT)/(ORBIT_IMPULSE*GRAVITY*EFF_DEORBIT) 

)); 

NEW_LINE(2); 

SETCOL(IO); 

PUT("Change  in  mass  for  de-orbit  is"); 

SET_COL(60); 

PUT(MASS_DEORBIT,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kgs"); 


PRESSURANT:  =  MASS_RATIO*PRESSURANT_REF; 

NEW_LINE(2); 

SETCOL(IO); 

PUT("Pressurant  is    "); 

SET_COL(60); 

PUT(PRESSURANT  ,  FORE  =  >  6,  AFT  =>  2,  EXP  =  >  0); 

PUT("    kgs"); 

PROPELLENT_MARGIN:=(MASS_NS_STATION_KEEPING  +  MASS_EW_STATION_KEEPI 
NG 

+  MASSSTATIONREPOSITIONING  +  MASS_DEORBIT 
+  PRE_AMF  +  MASS_CHANGE_POST_AMF  +  PRESSURANT)*0.02; 
NEW_LINE(2); 
SETCOL(IO); 
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PUT(" Propellent  margin  is  (2%  safety  margin)  "); 

SET_COL(60); 

PUT(PROPELLENT_MARGIN,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kgs"); 

—   Total  mass  change  due  to  propellent  expenditure 

PROPELLENT_EXPENDITURE:=(PROPELLENT_MARGIN*51.0)  +  AMF; 

NEW_LINE(2); 

SETCOL(IO); 

PUT("Propellent  Expenditure  is"); 

SET_COL(60); 

PUT(PROPELLENT_EXPENDITURE,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kgs"); 

SETCOL(IO);  PUT("TO  CONTINUE  ENTER  ANY  INTEGER"); 
GETINTEGER(I); 
video .  clear_screen ; 

STRUCTURAL_MASS:=0.087*(SPACECRAFT_MASS_BEFORE_APOGEE_BURN);--ADA 
PTOR); 

NEW_LINE(2); 

SETCOL(IO); 

PUT("  Structural  mass  is    "); 

SET_COL(60); 

PUT(STRUCTURAL_MASS,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("   kgs"); 


SPACECRAFT_BOL_MASS:=SPACECRAFT_MASS_BEFORE_APOGEE_BURN 

-AMF-ADAPTOR-PREAMF; 
NEW_LINE(2); 
SETCOL(IO); 

PUT("  Spacecraft  beginning  of  life  mass  is"); 
SET_COL(60); 

PUT(SPACECRAFT_BOL_MASS,  FORE  -  >  6,  AFT  =>  2,  EXP  =  >  0); 
PUT("    kgs"); 

if  DRUM_SPINNER  =  FALSE  then 

THERM  AL_CONTROL_MASS:=0.032*SPACECRAFT_BOL_MASS; 

NEW_LINE(2); 

SETCOL(IO); 

PUT("  Thermal  control  mass  is    "); 

SET_COL(60); 

PUT(THERMAL_CONTROL_MASS,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kgs"); 
else 

THERM  AL_CONTROL_MASS:=0.027*SPACECRAFT_BOL_MASS; 

NEW_LINE(2); 

SETCOL(IO); 

PUT("  Thermal  control  mass  is    "); 
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SET_COL(60); 

PUT(THERMAL_CONTROL_MASS,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 
PUT("    kgs"); 
end  if; 

if  DRUMSPINNER  =  FALSE  then 

ATTITUDE_CONTROL:=65.0  +  0.022*(SPACECRAFT_BOL_MASS-700.0); 

NEW_LINE(2); 

SETCOL(IO); 

PUT("  Attitudecontrolmass  is    "); 

SET_COL(60); 

PUT(ATTITUDE_CONTROL,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("  kgs"); 
else 

ATTITUDE_CONTROL:  =  31.0  +  0.027*(SPACECRAFT_BOL_MASS-700.0); 

NEW_LINE(2); 

SETCOL(IO); 

PUT(n  Attitudecontrolmass  is    "); 

SET_COL(60); 

PUT(ATTITUDE_CONTROL,  FORE  =  >  6,  AFT  =  >  2,  EXP  -  >  0); 

PUT("  kgs"); 
end  if; 

ELECTRICAL_SYSTEM_MASS:=0.039*SPACECRAFT_BOL_MASS; 

NEW_LINE(2); 

SETCOL(IO); 

PUT("  Electrical  system  mass  is    "); 

SET_COL(60); 

PUT(ELECTRICAL_SYSTEM_MASS,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kgs"); 


MECHANICAL_SYSTEM_MASS:=0.014*SPACECRAFT_BOL_MASS; 

NEW_LINE(2); 

SETCOL(IO); 

PUT("  Mechanical  system  mass  is    "); 

SET_COL(60); 

PUT(MECHANICAL_SYSTEM_MASS,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kgs"); 

BYPROPELLENT_MASS:=0.084*PROPELLENT_EXPENDITURE; 

NEW_LINE(2); 

SET_COL(10); 

PUT("  Propellent  is    "); 

SET_COL(60); 

PUT(BYPROPELLENT_MASS  ,  FORE  =  >  6,  AFT  -  >  2,  EXP  =  >  0); 

PUT("    kgs"); 

NEW_LINE(2); 
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PROPELLENTPRESSURANTM  ASS:  =  PROPELLENTEXPENDITURE-AMF; 

SET_COL(10); 

PUT("Mass  of  propellent  pressurant  is  "); 

SET_COL(60); 

PUT(PROPELLENT_PRESSURANT_MASS,FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kgs"); 

NEW_LINE(2); 

SPACECRAFTDRYMASS:  =  SPACECRAFTM  ASSBEFOREAPOGEEBURN 

-PROPELLENTEXPENDITURE; 
SET_COL(10); 

PUT(" Spacecraft  Dry  Mass  is"); 
SET_COL(60); 

PUT(SPACECRAFT_DRY_MASS,FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 
PUT("    kgs"); 
NEW_LINE(2); 

SET_COL(10);  PUT("TO  CONTINUE  ENTER  ANY  INTEGER"); 
GETJNTEGER(I); 

VIDEO.  CLEARSCREEN; 

MASSMARGIN:  =0. 1*SPACECRAFT_DRY_MASS; 

newline(l); 

SETCOL(IO); 

PUT(" Spacecraft  mass  margin  is"); 

SET_COL(50); 

PUT(MASS_MARGIN,FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("   kgs"); 

NEW_LINE(2); 

COMMPACKAGEMASS:  =  SPACECRAFTMASSBEFOREAPOGEEBURN 
-STRUCTURALMASS 
-THERM  ALCONTROLMASS 
-PROPELLENTEXPENDITURE 
-ATTITUDECONTROL 
-ELECTRICALSYSTEMMASS 
-MECHANICAL_SYSTEM_MASS 
-MASSMARGIN 
-MASS_CHANGE_POST_AMF 
-PROPELLENTPRESSURANTMASS; 

SET_COL(10); 

PUT(" Communications  package  mass  is    "); 

SET_COL(50); 

PUT(COMM_PACKAGE_MASS,FORE  -  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kgs"); 

NEW_LINE(2); 

PUT  LINE( "******************************************************* 
NEW_LINE(2); 
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CREATE(OUTF,NAME  =  >  "PROPBUDG.DAT"); 

~  header  for  propellent  budget 

—  top  line  of  header 
SET_LINE(OUTF,l); 
SET_COL(OUTF,l); 
PUT(OUTF,  "MANEUVER"); 
SET_COL(OUTF,25); 
PUT(OUTF,  "Delta"); 
SET_COL(OUTF,35); 
PUT(OUTF,  "Specific"); 
SET_COL(OUTF,48); 
PUT(OUTF,"Mass"); 
SET_COL(OUTF,58); 
PUT(OUTF,  "Final"); 
SET_COL(OUTF,66); 
PUT(OUTF,  "Efficiency"); 

—  second  line  of  header 
SET_LINE(OUTF,2); 
SET_COL(OUTF,23); 
PUT(OUTF,  "Velocity"); 
SET_COL(OUTF,35); 
PUT(OUTF,  "Impulse"); 
SET_COL(OUTF,47); 
PUT(OUTF,  "Change"); 
SET_COL(OUTF,58); 
PUT(OUTF,"Mass"); 

—  third  line  of  header 
SET_LINE(OUTF,3); 
SET_COL(OUTF,25); 
PUT(OUTF,"(m/s)"); 
SET_COL(OUTF,37); 
PUT(OUTF,"(s)"); 
SET_COL(OUTF,48); 
PUT(OUTF,"(kg)n); 
SET_COL(OUTF,58); 
PUT(OUTF,"(kg)"); 

SET_LINE(OUTF,4); 

PUT(" 


—  start  first  data  line 
SET_LINE(OUTF,5); 
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SET_COL(OUTF,l); 
PUT(OUTF,  "Separation"); 
SET_COL(OUTF,57); 

PUT(OUTF,SPACECRAFT_MASS_BEFORE_APOGEE_BURN,FORE=  >4,AFT=  >  1,EXP=  >0 

); 

—  second  line  of  data 
SET_LINE(OUTF,7); 
SET_COL(OUTF,l); 
PUT(OUTF, "Before  AMF"); 
SET_COL(OUTF,46); 

PUT(OUTF,ADAPTOR,FOPvE=  >4,AFT=  >  1,EXP=  >0); 
SET_COL(OUTF,57); 

PUT(OUTF,SPACECRAFT_MASS_BEFORE_APOGEE_BURN-ADAPTOR,FORE=  >4,AFT=  > 
1,EXP=>0); 

~  third  line  of  data 

SET_LINE(OUTF,9); 

SET_COL(OUTF,l); 

PUT(OUTF,"AMF"); 

SET_COL(OUTF,25); 

PUT(OUTF,DELTA_VELOCITY*1000.0,FORE=  >4,AFT  =  >  1,EXP=  >0); 

SET_COL(OUTF,37); 

PUT(OUTF,APOGEE_MOTOR_IMPULSE,FORE=  >4,AFT=  >  1,EXP  =  >0); 

SET_COL(OUTF,46); 

PUT(OUTF,AMF,FORE  =  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,57); 

PUT(OUTF,SPACECRAFT_MASS_BEFORE_APOGEE_BURN-ADAPTOR-AMF 
,FORE=  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,"1.00"); 

—  fourth  line  of  data 
SET_LINE(OUTF,ll); 
SET_COL(OUTF,l); 
PUT(OUTF,"Post  AMF"); 
SET_COL(OUTF,46); 

PUT(OUTF,MASS_CHANGE_POST_AMF,FORE=  >4,AFT=  >  1,EXP  =  >0); 
SET_COL(OUTF,57); 
PUT(OUTF,SPACECRAFT_MASS_BEFORE_APOGEE_BURN-ADAPTOR 

-AMF-PRE_AMF-MASS_CHANGE_POST_AMF,FORE=  >4,AFT  =  >  1,EXP=  >0); 

—  fifth  line  of  data  ns  station  keeping 
SET_LINE(OUTF,13); 
SET_COL(OUTF,l); 
PUT(OUTF,"N-S  station  keeping"); 
SET_COL(OUTF,25); 

PUT(OUTF,DELTA_VELOCITY_NORTH_SOUTH,FORE=  >4,AFT=  >  1,EXP=  >0); 
SET_COL(OUTF,37); 

PUT(OUTF,ORBIT_IMPULSE,FORE=  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,46); 

PUT(OUTF,MASS_NS_STATION_KEEPING,FORE=  >4,AFT  =  >  1,EXP=  >0); 

SET_COL(OUTF,57); 
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PUT(OUTF,SPACECRAFT_MASS_BEFORE_APOGEE_BURN-ADAPTOR 
-AMF-PRE_AMF-MASS_CHANGE_POST_AMF 
-MASS_NS_STATION_KEEPING)FORE  =  >4,AFT  =  >  1,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,EFF_NS,FORE=  >  1,AFT=  >2,EXP=  >0); 

—  sixth  line  of  data  ew  station  keeping 
SET_LINE(OUTF,15); 

SETCOL(OUTF.l); 

PUT(OUTF,"E-W  station  keeping"); 

SET_COL(OUTF,25); 

PUT(OUTF,DELTA_VELOCITY_EAST_WEST,FORE=  >4,AFT=  >  1,EXP  =  >0); 

SET_COL(OUTF,37); 

PUT(OUTF,ORBrT_IMPULSE,FORE=  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,46); 

PUT(OUTF,MASS_EW_STATION_KEEPING,FORE=  >4,AFT=  >  1,EXP  =  >0); 

SET_COL(OUTF,57); 

PUT(OUTF,SPACECRAFT_MASS_BEFORE_APOGEE_BURN-ADAPTOR 
-AMF-PRE_AMF-MASS_CHANGE_POST_AMF 
-MASSNSSTATIONKEEPING-MASSEWSTATIONKEEPING 
,FORE=  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,EFF_EW,FORE  =  >  1,AFT=  >2,EXP  =  >0); 

—  seventh  line  of  data    station  repositioning 
SET_LINE(OUTF,17); 
SET_COL(OUTF,l); 

PUT(OUTF, "Station  Repositioning"); 
SET_COL(OUTF,25); 

PUT(OUTF,DELTA_VELOCITY_STATION_REPOSITIONING,FORE  =  >4,AFT=  >  1,EXP  = 
>0); 

SET_COL(OUTF,37); 

PUT(OUTF,ORBIT_IMPULSE,FORE=  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,46); 

PUT(OUTF,MASS_STATION_REPOSITIONING,FORE=  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,57); 

PUT(OUTF,SPACECRAFT_MASS_BEFORE_APOGEE_BURN-ADAPTOR 
-AMF-PRE_AMF-MASS_CHANGE_POST_AMF 
-MASS_NS_STATION_KEEPING-MASS_EW_STATION_KEEPING 
-MASS_STATION_REPOSITIONING,FORE=  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,69);  " 

PUT(OUTF,EFF_STATION_REPOSITIONING,FORE=  >  1,AFT=  >2,EXP=  >0); 

—  eight  line  of  data  attitude  control 
SET_LINE(OUTF,19); 
SET_COL(OUTF,l); 
PUT(OUTF, "Attitude  Control"); 
SET_COL(OUTF,46); 

PUT(OUTF,ON_ORBIT_CONTROL,FORE  =  >4,AFT=  >  1,EXP  =  >0); 
SET_COL(OUTF,57); 
PUT(OUTF,SPACECRAFT_MASS_BEFORE_APOGEE_BURN-ADAPTOR 
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-AMF-PREAMF-M  ASSCHANGEPOSTAM  F 
-MASSNSSTATIONKEEPING-MASSEWSTATIONKEEPING 
-MASSSTATIONREPOSITIONING-ONORBITCONTROL 
,FORE=  >4,AFT  =  >  1,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,EFF_NS,FORE  =  >  1,AFT  =  >2,EXP=  >0); 

~  ninth  line  of  data  de-orbit 

SET_LINE(OUTF,21); 

SETCOL(OUTF.l); 

PUT(OUTF,  "De-orbit"); 

SET_COL(OUTF,25); 

PUT(OUTF,DELTA_VELOCITY_DEORBIT,FORE=  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,37); 

PUT(OUTF,ORBIT_IMPULSE,FORE=  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,46); 

PUT(OUTF,MASS_DEORBIT,FORE=  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,57); 

PUT(OUTF,SPACECRAFT_MASS_BEFORE_APOGEE_BURN-ADAPTOR 
-AMF-PRE_AMF-MASS_CHANGE_POST_AMF 
-MASSNSSTATIONKEEPING-MASSEWSTATIONKEEPING 
-MASSSTATIONREPOSITIONING-ONORBITCONTROL-MASSDEORBIT 
,FORE  =  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,EFF_DEORBIT,FORE=  >  1,AFT  =  >2,EXP  =  >0); 

—  tenth  line  of  data  pressurant 

SET_LINE(OUTF,23); 

SET_COL(OUTF,l); 

PUT(OUTF,  "Pressurant"); 

SET_COL(OUTF,46); 

PUT(OUTF,PRESSURANT,FORE=  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,57); 

PUT(OUTF,SPACECRAFT_MASS_BEFORE_APOGEE_BURN-ADAPTOR 
-AMF-PRE_AMF-MASS_CHANGE_POST_AMF 
-MASS_NS_STATION_KEEPING-MASS_EW_STATION_KEEPING 
-MASSSTATIONREPOSITIONING-MASSDEORBIT-PRESSURANT 
,FORE=  >4,AFT=  >  1,EXP=  >0); 

--  eleventh  line  of  data   margin  propellent 

SET_LINE(OUTF,25); 

SET_COL(OUTF,l); 

PUT(OUTF,  "Margin  Propellent"); 

SET_COL(OUTF,46); 

PUT(OUTF,PROPELLENT_MARGIN,FORE=  >4,AFT=  >  1,EXP=  >0); 

SET_COL(OUTF,57); 

PUT(OUTF,SPACECRAFT_MASS_BEFORE_APOGEE_BURN-ADAPTOR 
-AMF-PRE_AMF-MASS_CHANGE_POST_AMF 
-MASS_NS_STATION_KEEPING-MASS_EW_STATION_KEEPING 
-MASS_STATION_REPOSITIONING-MASS_DEORBIT-PRESSURANT 
-PROPELLENT_MARGIN,FORE=  >4,AFT  =  >  1,EXP=  >0); 

—  total  mass  change 
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SET_LINE(OUTF,26); 
SETCOL(OUTF.l); 

PUT(OUTF, " 


."); 


SET_LINE(OUTF,27); 

SET_COL(OUTF,l); 

PUT(OUTF,  "Total  Mass  Change"); 

SET_COL(OUTF,46); 

PUT(OUTF,  AD  APTOR  +  AMF  +  PREAMF  +  M  ASSCHANGEPOSTAMF 
+  M  ASSNSSTATIONKEEPING  +  M  ASSEWSTATIONKEEPING 
+  M  ASSSTATIONREPOSmONING  +  M  ASSDEORJBIT  +  PRESSURANT 
+  PROPELLENT_MARGIN,FORE=  >4,AFT=  >  1,EXP=  >0); 


CLOSE(OUTF); 

NEW_LINE(1); 

SET_LINE(OUTM,l); 

SET_COL(OUTM,10); 

PUT(OUTM, "SPACECRAFT   MASS    SUMMARY"); 

SET_LINE(OUTM,2); 


PUT(OUTM , " 

"); 

SET_LINE(OUTM,3); 
PUT(OUTM,  "Subsystem"); 
SET_COL(OUTM,40); 
PUT(OUTM,"Mass  (kg)"); 
SET_LINE(OUTM,4); 


PUT(OUTM,"- 
"); 


—  Structure 
SET_LINE(OUTM,6); 
PUT(OUTM,  "Structure"); 
SET_COL(OUTM,40); 
PUT(OUTM,STRUCTURAL_MASS,FORE=  >4,AFT=  >  1,EXP=  >0); 

—  Thermal 

SET_LINE(OUTM,8); 
PUT(OUTM,  "Thermal"); 
SET_COL(OUTM,40); 
PUT(OUTM,THERMAL_CONTROL_MASS,FORE=  >4,AFT=  >  1,EXP=  >0); 

—  Propulsion 
SETLINE(OUTM.IO); 
PUT(OUTM , "  Propulsion " ) ; 
SET_COL(OUTM,40); 
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PUT(OUTM,BYPROPELLENT  MASS,FORE=  >4,AFT=  >  1,EXP=  >0); 


--  Attitude  Control 

SET_LINE(OUTM,12); 

PUT(OUTM, "Attitude  Control"); 

SET_COL(OUTM,40); 

PUT(OUTM,ATTITUDE_CONTROL,FORE=  >4,AFT  =  >  1,EXP=  >0); 

—  Electric  Integration 
SET_LINE(OUTM,14); 
PUT(OUTM,  "Electric  Integration"); 
SET_COL(OUTM,40); 
PUT(OUTM)ELECTRICAL_SYSTEM_MASS,FORE=  >4,AFT=  >  1,EXP=  >0); 

—  Mechanical  Integration 
SET_LINE(OUTM,16); 
PUT(OUTM ,  "Mechanical  Integration " ) ; 
SET_COL(OUTM,40); 
PUT(OUTM,MECHANICAL_SYSTEM_MASS,FORE=  >4,AFT  =  >  1,EXP=  >0); 

—  Mass  Margin 
SET_LINE(OUTM,18); 
PUT(OUTM,"Mass  Margin"); 
SET_COL(OUTM,40); 
PUT(OUTM,MASS_MARGIN,FORE  =  >4,AFT=  >  1,EXP=  >0); 

—  Dry  Spacecraft  Mass 
SET_LINE(OUTM,20); 
PUT(OUTM,"Dry  Spacecraft  Mass"); 
SET_COL(OUTM,40); 

PUT(OUTM  ,SPACECRAFT_DRY_M  ASS,  FORE  =  >4,AFT=  >  1,EXP  =  >0); 

—  Propellent  Pressurant 
SET_LINE(OUTM,22); 
PUT(OUTM, "Propellent  Pressurant"); 
SET_COL(OUTM,40); 
PUT(OUTM,PROPELLENT_PRESSURANT_MASS,FORE=  >4,AFT=  >  1,EXP=  >0); 

~  Apogee  Motor  Expendable 

SET_LINE(OUTM,24); 

PUT(OUTM, "Apogee  Motor  Expendable"); 

SET_COL(OUTM,40); 

PUT(OUTM,AMF,FORE=  >4,AFT  =  >  1,EXP=  >0); 

--  Spacecraft  Mass  at  Separation 

SET_LINE(OUTM,26); 

PUT(OUTM, "Spacecraft  Mass  at  Seperation"); 

SET_COL(OUTM,40); 

PUT(OUTM,SPACECRAFT_MASS_BEFORE_APOGEE_BURN,FORE=  >4,AFT=  >  1,EXP=  >0 
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); 


__*************************************************************** 


end  MASS; 


procedure  ELECTRICALSYSTEM 

(SPACECRAFTMASSBEFOREAPOGEEBURN 
FLOAT; 

DRUMSPINNER  :  in  out 

BOOLEAN; 

COMMPACKAGEMASS  :  in 

FLOAT)  is 


in 


NO, 

N, 

Y, 

YES, 

CHAR 


:  CHARACTER; 


SOLAR_ ARRAY,  --  kg 

CHARGEARRAY,  -  kg 

SHUNT,  --  kg 

CHARGECONTROL,  -  kg 

BATTERY,  --  kg 

DISCHARGEREGULATOR  :  FLOAT;  --  kg 

LIFEFACTOR:  FLOAT  :=  1.05; 

POWERMARGIN  :  FLOAT  :=1.1; 

margin  for  error 

TTCFACTOR  :  FLOAT  :=  1.75;  -  TT&C 

scale  factor 

TRACKINGTELEMETRYREFERENCE  :  FLOAT      :=28.0; 
intelsat  v 

INTELSAT_7_REFERENCE  :  FLOAT      :  =  3445.0; 

INTELSAT6REFERENCE  :  FLOAT      :  =3700.0; 

INTELSAT5REFERENCE  :  FLOAT      :  =  1900.0; 

INTELSAT_7_ANTENNA_MASS         :  FLOAT      :  =  70.0; 

INTELSAT_6_ANTENNA_MASS         :  FLOAT      :  =  309.0; 

INTELSAT_5_ANTENNA_MASS         :  FLOAT      :  =  59.0; 

INTELSAT_5_HOUSEKEEPING_POWER:  constant  FLOAT  :=  211.0 
intelsat  V 

INTELSAT_6_HOUSEKEEPING_POWER:  constant  FLOAT  :=  347.0 
intelsat  VI 

INTELSAT7HOUSEKEEPINGPOWER:  constant  FLOAT  :=  613.0 
intelsat  VII 


ELECTRIC  ALPOWERM  ASS, 
COMMELECTRICAL  SUBSYSTEM  MASS, 
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BATTERYLOAD, 

PAYLOADPOWER, 

PAYLOADMASS, 

ANTENNAMASS, 

REFERENCE, 

HOUSEKEEPINGPOWER, 

SOLARARRA  YLO  AD , 

POWERFACTOR, 

X, 

TRACKINGTELEMETRY  :  FLOAT; 

CHOICE  :  INTEGER; 

—   Reads  an  integer  input  from  the  keyboard 


begin 

REFERENCE:  =  INTELSAT5REFERENCE; 

ANTENNA_MASS:=INTELSAT_5_ANTENNA_MASS; 

HOUSEKEEPING_POWER:=INTELSAT_5_HOUSEKEEPING_POWER; 

~  The  mass  of  the  electrical  power  system  is 
NEW_LINE(2); 
SETCOL(IO); 

PUT_LINE( "Enter  the  POWER  requirements  of  the"); 
SET_COL(10); 

PUT_LINE(" Spacecraft  in  watts  as  a  real  number"); 
SET_COL(15); 

GETDATA(PAYLOADPOWER); 
VIDEO.CLEARSCREEN; 
NEW_LINE(2); 
SET_COL(15); 

PUT("Payload  power  requirements  are  "); 
SET_COL(60); 

PUT(PAYLOAD_POWER,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 
NEW_LINE(2); 

PUT  LINE( "******************************************************* 

NEW_LINE(2); 

SET_COL(5); 

PUT_LINE(" Choose  which  satellite  you  want  as  your  reference 
for  "); 

SET_COL(5); 

PUT_LINE( "housekeeping  power,  mass  in  kilograms,  and  Antenna 
Mass  "); 

SET_COL(5); 

PUT_LINE("  Intelsat  V      Intelsat  VI     Intelsat 

VII");  " 
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SET_COL(5); 

PUT_LINE("Mass      1900.0  kgs   3700.0  kgs 
3445.0  kgs"); 

SET_COL(5); 

PUT_LINE("Antenna  Mass       59.0  kgs         309.0  kgs 
75.0  kgs"); 

SET_COL(5); 

PUT_LINE(  "Housekeeping      211.0  Watts      347.2  Watts 
613.0  Watts"); 

PUT_LINE("Power"); 

SET_COL(5); 

PUT  LINE(  "******************************************************* 

/> 
SET_COL(5); 
PUT_LINE("For  an  INTELSAT  V  reference  enter  an  integer    '1' 

"); 

SET_COL(5); 

PUT_LINE("For  an  INTELSAT  VI    reference  enter  an  integer    '2' 

"); 

SET_COL(5); 

PUT_LINE("For  an  INTELSAT  VII   reference  enter  an  integer   '3' 

"); 

SET_COL(5); 

PUT_LINE("TO  USE  YOUR  OWN   REFERENCE  VALUES  enter  an  integer 
'4'    "); 

GETINTEGER(CHOICE); 

case  CHOICE  is 
when  1  =  > 

REFERENCE:  =INTELSAT_5_REFERENCE; 
ANTENNA_MASS:=INTELSAT_5_ANTENNA_MASS; 
HOUSEKEEPING  POWER:  =  INTELSAT  5  HOUSEKEEPING  POWER; 


when  2=  > 

REFERENCE:  =  INTELSAT6REFERENCE; 

ANTENNA_MASS:=INTELSAT_6_ANTENNA_MASS; 

HOUSEKEEPING_POWER:=INTELSAT_6_HOUSEKEEPING_POWER; 

when  3  =  > 

REFERENCE:  =  INTELSAT7REFERENCE; 

ANTENNAMASS:  =  INTELSAT_7_ANTENNA_MASS; 

HOUSEKEEPINGPOWER:  =  INTELSAT7HOUSEKEEPINGPOWER; 

when  4=  > 

PUT("Enter  Satellite  Mass  Reference"); 

SET_COL(15); 

GETDATA(REFERENCE); 

NEW_LINE(3); 


PUT( "Enter  Satellite  Antenna  Mass  Reference"); 
SET_COL(15); 


112 


GET_DATA(ANTENNA_MASS); 
NEW_LINE(3); 

PUT( "Enter  Satellite  Housekeeping  Power  Requirements 
Reference"); 

SET_COL(15); 
GETDATA(HOUSEKEEPINGPOWER); 

NEW  LINE(3); 


when  OTHERS  =  > 
NEW_LINE(2); 
SET_COL(5); 

PUTfUnderstand  INTELSAT  V  DATA  WILL  BE  USED"); 
end  case; 


VIDEO.  CLE  ARSCREEN; 

x    vJ  X       1 — 1 1  1  'i  L. \ 

NEWLINE; 

HOUSEKEEPINGPOWER:  =  (SPACECRAFTM  ASSBEFOREAPOGEEBURN 

/REFERENCE) 

*HOUSEKEEPING_POWER; 
NEW_LINE(2); 
SET_COL(10); 

PUT("  Housekeeping  power  is    "); 
SET_COL(50); 

PUT(HOUSEKEEPING_POWER,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 
PUT("    kg"); 

BATTERY_LOAD:  =  (HOUSEKEEPING_POWER  +  PAYLOAD_POWER)*LIFE_FACTOR; 

NEW_LINE(2); 

SETCOL(IO); 

PUT("  Battery  load  is    "); 

SET_COL(50); 

PUT(BATTERY_LOAD,  FORE  -  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kg"); 


SOLAR_ARRAY_LOAD:=BATTERY_LOAD*POWER_MARGIN; 

NEW_LINE(2); 

SETCOL(IO); 

PUT("  Solar  array  load  is    "); 

SET_COL(50); 

PUT(SOLAR_ARRAY_LOAD,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    kg"); 
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-ELECTRICALPOWERM  ASS:  =  (PAYLOADPOWER  +  HOUSEKEEPING_POWER)*(BATT 
TERYLOAD  +  SOLARARRAYLOAD); 


if  DRUM  SPINNER  =  FALSE  then 


if  BATTERYLOAD  <  1875.0   then 
SOLARARRAY  :  -  50.0;  -  kg 

CHARGEARRAY  :=  7.8;  -kg 

SHUNT    '  :=  7.5;  --kg 

CHARGECONTROL  :=  1.5;  -kg 

BATTERY  :=  56.8;  -kg 

DISCHARGEREGULATOR  :  =  0.2;  -  kg 

elsif  BATTERYLOAD  <  3125.0  then 
SOLAR_ ARRAY  :  =  42.0;  -  kg 

CHARGEARRAY  :=  6.6;  -kg 

SHUNT  :=  7.5;  -kg 

CHARGECONTROL  :=  1.5;  -kg 

BATTERY  :=47.3;  -kg 

DISCHARGEREGULATOR  :=  0.2;  -kg 

elsif  BATTERYLOAD  <  4375.0  then 

SOLARARRAY  :=33.0;          -kg 

CHARGEARRAY  :=  5.1;            -kg 

SHUNT    '  :=  7.5;            -kg 

CHARGECONTROL  :=  1.5;            -kg 

BATTERY  :=  47.3;          -kg 

DISCHARGE_REGULATOR  :=  0.2;            -kg 

elsif  BATTERYLOAD  >  =  4375.0  then 

SOLARARRAY  :=25.0;          -kg 

CHARGEARRAY  :=3.9;           -kg 

SHUNT    '  :=  7.5;           -kg 

CHARGECONTROL  :=  1.5;           -kg 

BATTERY  :=  47.3;          -kg 

DISCHARGEREGULATOR  :  -  0.2;           -  kg 
end  if; 

elsif  BATTERYLOAD  <  1875.0  then 

SOLARARRAY  :=  125.0;  -kg 

CHARGEARRAY  :=  19.5;  -kg 

SHUNT    '  :=  7.5;  -kg 

CHARGECONTROL  :=  1.5;  -kg 

BATTERY  :=56.8;  -kg 

DISCHARGEREGULATOR  :=  0.2;  -kg 

else 

SOLAR_ ARRAY  :  =  70.0;  -  kg 

CHARGEARRAY  :=  11.0;  -kg 
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SHUNT  :=  7.5;  -kg 

CHARGECONTROL  :=  1.5;  -kg 

BATTERY  :=  47.3;  -kg 

DISCHARGEREGULATOR  :=0.2;  -kg 

end  if; 


POWER  FACTOR:  =     LIFE  FACTOR 


*(POWER_M  ARGIN*SOLAR_ARRAY  +  POWERM  ARGIN*CH  ARGE_  ARRAY 

+  SHUNT  +  CHARGECONTROL  +  BATTERY  +  DISCH  ARGEREGULATOR) 
*0.001; 

NEW_LINE(2); 

SETCOL(IO); 

PUT("  Power  Factor  is    "); 

SET_COL(50); 

PUT(POWER_FACTOR,  FORE  =  >  4,  AFT  =  >  4,  EXP  =  >  0); 


ELECTRICAL_POWER_MASS:=(PAYLOAD_POWER  +  HOUSEKEEPING_POWER)*POWER_F 
ACTOR; 

NEW_LINE(2); 

SETCOL(IO); 

PUT("  Electrical  power  sub-system  mass  is    "); 

SET_COL(50); 

PUT(ELECTRICAL_POWER_MASS,  FORE  -  >  6,  AFT  -  >  2,  EXP  =  >  0); 

PUT("    kg"); 

PAYLOADMASS:  =  COMMPACKAGEMASS-ELECTRICALPOWERMASS; 

NEW_LINE(2); 

SETCOL(IO); 

PUT("  Payload  mass  is    "); 

SET_COL(50); 

PUT(PAYLOAD_MASS,  FORE  -  >  6,  AFT  -  >  2,  EXP  -  >  0); 

PUT("    kg"); 


TRACKINGTELEMETRY:  = 
(SPACECRAFT_MASS_BEFORE_APOGEE_BURN /REFERENCE) 
*TRACKING_TELEMETRY_REFERENCE; 
NEW_LINE(2); 
SETCOL(IO); 

PUT("  Tracking  telemetry  and  control  mass  is    "); 
SET_COL(50); 

PUT(TRACKING_TELEMETRY,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 
PUT("    kg"); 

***** 

—  communications 
SET_LINE(OUTM,28); 
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PUT(OUTM,  "Communications");  --* 

SET_COL(OUTM,40); 

PUT(OUTM,PAYLOAD_MASS,FORE  =  >4,AFT=  >  1,EXP  =  >0); 

~  Antennas 

SET_LINE(OUTM,30);  -* 

PUT(OUTM, "Antenna  Reference  Mass"); 

SET_COL(OUTM,40); 

PUT(OUTM,ANTENNA_MASS,FORE=  >4,AFT=  >  1,EXP  =  >0); 

—  electric  power  subsystem  mass 

SET_LINE(OUTM,32); 

PUT(OUTM, "Electric  Power");  -* 

SET_COL(OUTM,40); 

PUT(OUTM,ELECTRICAL_POWER_MASS,FORE  =  >4,AFT=  >  1,EXP=  >0); 

~  Telemetry  and  Control 

SET_LINE(OUTM,34); 

PUT(OUTM, "Telemetry  and  Command");  -* 

SET_COL(OUTM,40); 

PUT(OUTM, TRACKING  TELEMETRY,FORE=  >4,AFT=  >  1,EXP=  >0); 


■fea|ciiea#c>|M|e3le 


end  ELECTRICAL  SYSTEM; 


begin 

CREATE(OUTM,NAME=  >  "SYSMASS.DAT"); 

DUAL_SPIN  (DRUM_SPINNER); 

VELOCITY  (INCLINATIONRADIANS, 

DELTAVELOCITY); 

STATIONKEEPINGREPOSITIONING     (DELTAVELOCITYNORTHSOUTH, 
DELTAVELOCITYEASTWEST, 
DELTAVELOCITYSTATIONREPOSITIONING, 
EFF_NS, 
EFFEW); 

MASS  (DELTA_VELOCITY_NORTH_SOUTH, 
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DELTA  VELOCITYEASTWEST, 

DELTAJVELOCITYSTATIONREPOSITIONING, 

DELTAVELOC1TY, 

EFF_NS, 

EFFEW, 

COMMPACKAGEMASS, 

SPACECRAFTMASSBEFOREAPOGEEBURN); 

ELECTRICALSYSTEM  (COMMPACKAGEMASS, 

DRUMSPINNER, 
SPACECRAFTMASSBEFOREAPOGEEBURN); 


CLOSE(OUTM); 

SET_COL(10);PUT("TO  CONTINUE  ENTER  ANY  INTEGER"); 
GET_INTEGER(I); 

VIDEO.  CLE  ARSCREEN ; 

NEW_LINE(2); 

PUT_LINE("DATA  FOR  THIS  DESIGN  RUN  ARE  LOCATED  IN  THE 
FOLLOWING  FILES:"); 

NEWLINE(l); 

PUT_LINE("  SYSMASS.DAT"); 

PUT_LINE("  PROPBUDG.DAT  "); 

NEW_LINE(2); 

PUT_LINE("TO  KEEP  DATA  FROM  BEING  ERASED  ON  NEXT  RUN"); 

PUT_LINE("USE  DOS  COMMAND  REN  (RENAME)  "); 

NEW_LINE(1); 

PUT  LINE("EXAMPLE  -  REN  SYSMASS.DAT     SYSMASS.XYZ"); 


end  MASSPRO; 
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I. 


Electric  Photovoltaic  Power  System 


—  Title  :  Solar  Power  Determination 

—  Author  :  David  Lashbrook 
--  Date  :  01  February  1992 
--  Revised  :  12  May  1992 

--  Compiler  :  OPENADA  EXT 

—  Description      :  This  procedure  determines  the  solar  power  and  number  of 

cells  required  in  to  provide  stated  power  requirements 
for  a  geosynchronous  orbit. 

--with  TEXTJO,  GENERICELEMENTARYFUNCTIONS,  GETDATA,VIDEO; 
-use  TEXTJO,  GETDATA  ; 

with  TEXTJO,  MATHLIB,  GETDATA,  VIDEO; 
use   TEXTJO,  MATHLIB,  GETDATA; 

procedure  SOLARPOWER  is 

package  FLOATJNOUT  is  new  FLOAT JO(FLO AT); 

use       FLOATJNOUT; 

package  INTEGER  INOUT  is  new  INTEGERJO(INTEGER); 

use       INTEGER  INOUT; 

package  BOOLE  AN  INOUT  is  new  ENUMERATION  JO(BOOLE  AN); 

use       BOOLEAN  INOUT; 

—  package  GEF  INOUT  is  new  GENERICELEMENTARYFUNCTIONS(FLOAT); 

—  use       GEF  INOUT; 


BUS  VOLTAGE  ALLOWABLE  DEVIATION   :  FLOAT:  =0.5; 


BYPASS  J)IODE_VOLTAGE_DROP  :  FLOAT:  =  1.1;     -  VDD 

--  V_D  Open  circuit  failure  of  one  cell  +  minimum  battery  discharge  voltage  at  EOL 


EOL  BATTERY  DISCHARGE  VOLTAGE 


:  FLOAT:  =  1.10; 


DEPTHOFDISCHARGE  :  FLOAT:  =0.65; 

ECLIPSE  TIME  :  FLOAT:  =  1 .20; 

MAXIMUMBATTERYCHARGEVOLTAGE        :  FLOAT:  =  1.5; 
SERIESCONNECTEDDIODEVOLTAGEDROP  :  FLOAT:  =  0.8; 
NUMBER_SERIES_CONNECTED_DIODES         :  FLOAT:  =  3.0;      - 
BATTERYCHARGERVOLTAGEDROP  :  FLOAT:  =  1.75; 

CHARGE  DISCHARGE  EFFICIENCY  BATTERY  :  FLOAT:  =  0.9; 


3   assumed 


EQUINOX_CHARGE_RATE  :  constant  FLOAT  :=  15.0;  -  autumn 

SOLSTICECHARGERATE  :  constant  FLOAT  :=  45.0;  ~  summer 

PI  :  constant  FLOAT  :=  3.14159265359; 

SPACECRAFT  JJFE, 
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SPACECRAFTMASSBEFOREAPOGEEBURN, 

PAYLOADPOWER, 

CELLAH, 

BUSPOWER, 

SERIESCELLSFORMINDISVOLT,     --  N 

VOLTAGEDROPBATTERYDCDIODES,   -  VDD 

VOLTAGEBUSLOW,  --  LOWEST  VOLTAGE  ON  BUS 

CHARGINGVOLTAGE,  --  MAXIMUMCHARGEVOLTAGE 

BATTERY_CHARGING_VOLTAGE_DROP,     - 

VOLTAGECHARGEARRAY,  --  voltage  charge  array 

SERIESCELLSFORMINDISVOLT, 

EFFICIENCY, 

POWEREQUINOXCHARGE, 

EQUINOXCHARGETIME, 

POWERSOLSTICECHARGE, 

SOLARARRAY, 

CHARGEARRAY, 

SHUNT,  ~ 

CHARGECONTROL, 

DISCHARGEREGULATOR, 

PAYLOADPOWER, 

BATTERYLOAD, 

MINIMUMDISCHARGEBUSVOLTAGE,   --  VDB 

BUSVOLTAGE, 

NUMBER_OF_BUSES, 

SOLAR  ARRAY  LOAD  :  FLOAT; 


LIFEFACTOR  :  FLOAT      :=  1.05; 

POWERMARGIN  :  FLOAT      :=  1.1; 

INTELSAT_7_REFERENCE  :  FLOAT      :  =  3445.0 

INTELSAT6REFERENCE  :  FLOAT      :  =2227.0 

INTELSAT_5_REFERENCE  :  FLOAT      :  =  1900.0 

INTELSAT_7_HOUSEKEEPING_POWER:  constant  FLOAT 
INTELSAT_6_HOUSEKEEPING_POWER:  constant  FLOAT 
INTELSAT  5  HOUSEKEEPING  POWER:  constant  FLOAT 


-  margin  for  error 

--  kgs 

--  kgs 

—  kgs 
=  613.0 
=  347.0 
=  211.0 


-  intelsat  VII 

-  intelsat  VI 

-  intelsat  V 


X, 

MASS_REFERENCE, 

HOUSEKEEPINGPOWER, 

HOUSEKEEPING  POWER  REFERENCE       :  FLOAT  ; 


FINAL 

:  BOOLEAN  :=TRUE; 

DRUM_SPINNER 

:  BOOLEAN  :=  FALSE; 

Y, 

y> 

N, 

n, 

CHAR 

:  CHARACTER  ; 

L 
CHOICE, 
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NINTEGER, 

J  : INTEGER  ; 

procedure  PRINTHEADER  is 
begin 

VIDE0.CLEAR_SCREEN;SET_LINE(1); 

NEW_LINE(2); 

SET_COL(10); 

PUT_LINE("This  program  walks  through  a  basic  design  of  the  power"); 

SET_COL(10); 

PUT_LINE(" requirements  of  a  solar  powered  geosynchronous  satellite."); 

NEWLINE; 

SETCOL(IO); 

PUT_LINE("A11  pertinent  data  will  be  written  to  files."); 

SETCOL(IO); 

PUT_LINE("  CELPARAM.DAT        and  SOLCELL.DAT"); 

new_line(l); 

end  PRINTHEADER; 

procedure  DUAL_SPIN  (DRUM_SPINNER  :  in  out  BOOLEAN)  is 
begin 

SETCOL(IO); 

PUT_LINE("Is  your  spacecraft  Spin  Stabilized  "); 
SET_COL(15); 
GETCHARACTER(char); 
if  CHAR  =  'Y'  or  CHAR  =  'y'  then 
DRUMSPINNER:  =TRUE; 
if  DRUMSPINNER  =  TRUE  then 

VIDEO.CLEAR_SCREEN;SET_LINE(l); 
SET_COL(10);  " 

PUT_LINE(" Satellite  is  Spin  Stabilized"); 
MINIMUM_DISCHARGE_BUS_VOLTAGE:  =  35.0;  --  VDB 
BUS_VOLTAGE:=50.0; 
NEW_LINE(2); 

PUT  LJNE( "******************************************************************")' 
end  if; 
else 

VIDEO.CLEAR_SCREEN;SET_LINE(l); 

SET_COL(10);  ~ 

PUT_LINE("Satellite  is  Three  Axis  Stabilized"); 

MINIMUM_DISCHARGE_BUS_VOLTAGE:  =  30.0;   --  VDB 

BUS_VOLTAGE:=42.0;   " 

NEW_LINE(2); 

PUT  LINE( "******************************************************************ny 

end  if; 
end  DUAL_SPIN; 

procedure  OPERATINGDATA   (BATTER  YLOAD  :  in  out  FLOAT; 

DRUMSPINNER  :  in  out  BOOLEAN; 

MINIMUMDISCHARGEBUSVOLTAGE   :  in  out  FLOAT; 
BUSVOLTAGE  :  in  out  FLOAT; 
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BYPASSDIODEVOLTAGEDROP         :  in  out  FLOAT; 
EOL  BATTERY  DISCHARGE  VOLTAGE    :  in  out  FLOAT; 


BUSPOWER 

PAYLOADPOWER 

DEPTHOFDISCHARGE 

numberofbuses 

SPACECRAFTLIFE 

ECLIPSE  TIME 


:  in  out  FLOAT; 
:  in  out  FLOAT; 
:  in  out  FLOAT; 
in  out  FLOAT; 

:  in  out  FLOAT; 
:  in  out  FLOAT)  is 


CHOICE, 
INPUT 

REPLACE 

begin 


INTEGER ; 

:  BOOLEAN  :=  FALSE; 


SETCOL(IO); 

PUT_LINE("  Enter  the  mass  of  the  spacecraft  in  kilograms"); 

NEW_LINE(2); 

SETCOL(IO); 

GET_DATA(SPACECRAFT_MASS_BEFORE_APOGEE_BURN); 

VIDEO.CLEARSCREEN;  " 

SET_COL(15);  " 

PUT(" Spacecraft  mass  before  apogee  motor  bum  is    "); 

PUT(SPACECRAFT_MASS_BEFORE_APOGEE_BURN)  FORE  =  >  6,  AFT  =  >  2,  EXP  -  >  0); 

PUT("    kgs"); 

NEW_LINE(2); 

PUT  LJNE( "******************************************************************")■ 

NEW_LINE(2); 

MASS_REFERENCE:  =  INTELS  AT_5_REFERENCE; 
HOUSEKEEPINGPOWERREFERENCE:  =  INTELS  AT_5_HOUSEKEEPING_POWER; 

—  The  mass  of  the  electrical  power  system  is 
SET_COL(10); 

PUT_LINE( "Enter  the  POWER  requirements  of  the  Spacecraft  in  watts."); 
NEW_LINE(2); 
SET_COL(15); 

GETDATA(PAYLOADPOWER); 
VIDEO.CLEARSCREEN; 
NEW_LINE(2); 

PUT("Payload  power  requirements  are  "); 
SET_COL(50); 

PUT(PAYLOAD_POWER,  FORE  -  >  6,  AFT  =  >  2,  EXP  =  >  0); 
PUT("    Watts"); 
NEW_LINE(2); 
PUT  LINE( "******************************************************************")• 
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NEW_LINE(2); 

SET_COL(5); 

PUT_LINE("  Choose  which  satellite  you  want  as  your  reference  for  "); 

SET_COL(5); 

PUT_LINE(  "housekeeping  power  and  spacecraft  mass  in  kilograms."); 

NEW_LINE(2); 

PUT  LiNE(" ******************************************************************")• 

NEW_LINE(1); 

PUTLINEf  T  '2'  '3'  "); 

SET_COL(5); 

PUTLINEf  Intelsat  V       Intelsat  VI      Intelsat  VII"); 

SET_COL(5); 

PUT_LINE("Mass       1900.0  kgs   2227.0  kgs   3445.0  kgs"); 

SET_COL(5); 

PUT_LINE("  Housekeeping       211.0  347.0  613.0"); 

SET_COL(5); 

PUT_LINE("Power"  ); 

PUT  LINE( "******************************************************************")■ 

SETjC0L(5); 

PUT_LINE( "For  an  INTELSAT  V     reference      enter   integer    '1'    "); 

SET_COL(5); 

PUT_LINE("For  an  INTELSAT  VI   reference      enter   integer    '2'    "); 

SET_COL(5); 

PUT_LINE( "For  an  INTELSAT  VII  reference      enter   integer   '3'    "); 

SET_COL(5); 

PUT_LINE("For  your  own  reference  value's     enter   integer    '4'    "); 

GETJNTEGER(CHOICE); 

case  CHOICE  is 
when  1  =  > 

M  ASSREFEPvENCE:  =  INTELSAT_5_REFERENCE; 

HOUSEKEEPING  POWER  REFERENCE^  INTELSAT  5  HOUSEKEEPING  POWER; 


when  2=  > 

MASS_REFERENCE:=INTELSAT_6_REFERENCE; 
HOUSEKEEPINGPOWERREFERENCE:  =  INTELS  AT6HOUSEKEEPINGPOWER; 

when  3  =  > 

MASS_REFERENCE:=INTELSAT_7_REFERENCE; 
HOUSEKEEPINGPOWERREFERENCE:  =  INTELSAT7HOUSEKEEPINGPOWER; 

when  4=  > 

NEW_LINE(2); 

PUT  LINE( "******************************************************************")■ 

NEW_LINE(2); 

VIDEO.  CLEARSCREEN; 

PUT("Please  enter  desired  REFERENCE   MASS"); 

SET_COL(15); 

GET_DATA(MASS_REFERENCE); 

VIDEO.CLEARSCREEN; 
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NEW_LINE(2); 

PUT  line(" ******************************************************************")■ 

NEW_LINE(2); 

PUT( "Please  enter  desired  HOUSEKEEPING  POWER  reference"); 
SET_COL(15); 

GET_DATA(HOUSEKEEPING_POWER_REFERENCE); 
VIDEO.CLEARSCREEN; 
when  OTHERS  =  > 
NEW_LINE(2); 
SET_COL(5); 

PUT(" Understand  INTELSAT  V  DATA  WILL  BE  USED"); 
end  case; 


HOUSEKEEPING_POWER:=(SPACECRAFT_MASS_BEFORE_APOGEE_BURN 

/MASSREFERENCE) 

*HOUSEKEEPING_POWER_REFERENCE; 
VIDEO.CLEARSCREEN; 
NEWLINE; 

PUT(" Housekeeping  power  is    "); 
SET_COL(60); 
PUT(HOUSEKEEPING_POWER,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

NEWLINE(l); 

B  ATTERYLOAD :  -  (HOUSEKEEPINGPOWER  +  PAYLOADPOWER)  *LIFE_F  ACTOR; 

PUT("Battery  load  is  (multplied  by    life  factor  of  1.05)"); 

SET_COL(60); 

PUT(BATTERY_LOAD,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

NEWLINE(l); 

SOLARARRAYLOAD:  =  BATTERY_LOAD*POWER_M  ARGIN; 

PUT("Solar  array  load  is  (multiplied  by  power  factor  of  1.10)  "); 

SET_COL(60); 

PUT(SOLAR_ARRAY_LOAD,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

new_line(2); 

PUT_LINE("The  Battery  Load  value  will  be  used  in  future  calculations."); 

PUT_LINE("If  you  want  to  change  this  value  enter  a  'y'  for  YES.  If  you  wish  to  "); 

PUT_LINE(" retain  the  value  enter  a  4n'  for  NO.    The  value  you  enter    "); 

put_line("  should  be  the  BATTERYLOAD."); 

PUT_LINE("BATTERY_LOAD  =  PAYLOAD  POWER  REQUIREMENTS  +  HOUSEKEEPING  POWER"); 

PUT_LINE("This  value  is  the  BATTERYLOAD  and  will  have  no  design  factors  "); 

PUT_LINE( "applied  to  it."); 

SETCOL(IO); 

NEW_LINE(2); 

GETCHARACTER(CHAR); 

if  CHAR  =  'Y'  or  CHAR  =  'y'  then 

VIDEO.  CLEARSCREEN; 

NEWLINE(l); 

PUT("Payload  power  requirements  are  "); 

123 


SET_COL(55); 

PUT(PAYLOAD_POWER,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 
PUT("   Watts"); 
new_line(2); 

PUT(" Calculated  Housekeeping  power  is    "); 
SET_COL(55); 

PUT(HOUSEKEEPING_POWER,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 
PUT("    Watts"); 
new_line(3); 

PUT(" Please  enter  a  value  for  the  Battery  Load"); 
NEW_LINE(2); 

PUT("  Remember  to  add  your  new  housekeeping  value  to  the  pay  load  power"); 
NEW_LINE(3); 

GETDATA(BATTERYLOAD); 
NEW_LINE(2); 

PUT  LiNE(  "******************************************************************")• 
NEW_LINE(2); 
VIDEO.  CLE  ARSCREEN; 
PUT("Battery  Load  is    "); 
SET_COL(60); 

PUT(BATTERY_LOAD,  FORE  =  >  6,  AFT  =  >  2,  EXP  -  >  0); 
NEWLINE(l); 
NEW_LINE(2); 

SOLARARRAYLOAD:  =  BATTERY_LOAD*POWER_M  ARGIN; 
PUT("Solar  array  load  is  (multiplied  by  power  factor  of  1.10)  "); 
SET_COL(60); 

PUT(SOLAR_ARRAY_LOAD,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 
end  if; 

NEW_LINE(2); 

PUT  LijsJEf "******************************************************************")" 

NEW_LINE(2); 

PUT("Please  enter  the  spacecraft  life  in  years"); 

NEW_LINE(2); 

SETCOL(IO); 

GETDATA(SPACECRAFTLIFE); 

NEW_LINE(2); 

PUT(" Spacecraft  life  is"); 

PUT(SPACECRAFT_LIFE,FORE=  >3,AFT=  >  1,EXP=  >0); 

PUT("    years"); 

NEW_LINE(2); 

STOP; 


<<VALUE_NEW>> 
PUT  LINE( "************************************************************************ 

SET~COL(5); 

PUT_LINE(" Default  values  for  the  following  parameters  are:  "); 

PUT  LiJsj£( "********************************************************************** 

SETjCOL(5); 
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PUT("Minimum  discharge  voltage  of  bus  [1]  "); 

set_col(60); 

PUT(MINIMUM_DISCHARGE_BUS_VOLTAGE,FORE  =  >4,AFT  =  >2,EXP=  >0);PUT("  volts"); 

NEWLINE(l); 

SET_COL(5); 

PUT("DESIGN  Satellite  Bus  Voltage  [2]"); 

SET_COL(60); 

PUT(BUS_VOLTAGE,FORE  =  >4,AFT=  >2,EXP=  >0); 

PUT("    volts"); 

NEWLINE(l); 

SET_COL(5); 

PUT("Bypass  diode  voltage  drop  [3]  "); 

set_col(60); 

PUT(BYPASS_DIODE_VOLTAGE_DROP,FORE=  >4,AFT  =  >2,EXP  =  >0);PUT("  volts"); 

NEWLINE(l); 

SET_COL(5); 

PUT("End  of  life  battery  discharge  voltage       [4]  "); 

set_col(60); 

PUT(EOL_BATTERY_DISCHARGE_VOLTAGE,FORE  =  >4,AFT-  >2,EXP=  >0);PUT("  volts"); 

NEWLINE(l); 

SET_COL(5); 

PUT(" Satellite  eclipse  time  hours  [5]     "); 

SET_COL(60); 

PUT(ECLIPSE_TIME,FORE=  >4,AFT-  >2,EXP=  >0); 

PUT("   hours"); 

NEW_LINE(1); 

SET_COL(5); 

PUT(" Depth  of  Discharge  [6]  "); 

SET_COL(60); 

PUT(DEPTH_OF_DISCHARGE,FORE-  >4,AFT=  >2,EXP=  >0); 

NEWLINE(l); 

SET_COL(5); 

PUT(" Maximum  Battery  Discharge  Voltage  [7]"); 

SET_COL(60); 

PUT(MAXIMUM_BATTERY_CHARGE_VOLTAGE,FORE=  >4,AFT=  >2,EXP-  >0); 

PUT("    volts"); 

NEW_LINE(1); 

SET_COL(5); 

PUT( "Series  Connected  Diode  Voltage  Drop  [8]    "); 

SET_COL(60); 

PUT(SERIES_CONNECTED_DIODE_VOLTAGE_DROP,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    volts"); 

NEW_LINE(1); 
SET_COL(5); 
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PUTfNumber  of  Series  Connected  Diodes  [9]    "); 

SET_COL(60); 

PUT(NUMBER_SERIES_CONNECTED_DIODES,FORE=  >4,AFT=  >2,EXP=  >0); 

NEWLINE(l); 

SET_COL(5); 

PUT(" Battery  Charger  Voltage  Drop  [10]  "); 

SET_COL(60); 

PUT(BATTERY_CHARGER_VOLTAGE_DROP,FORE=  >4,AFT  =  >2,EXP  =  >0); 

PUT("    volts"); 

NEWLINE(l); 

SET_COL(5); 

PUT("Charge  Discharge  Voltage  Drop  [H]"); 

SET_COL(60); 

PUT(CHARGE_DISCHARGE_EFFICIENCY_BATTERY,FORE  =  >4,AFT=  >2,EXP  =  >0); 

new_LINE(2); 

if  REPLACE  =  FALSE  then 
CHAR  :=  N; 

PUT_LINE("If  you  desire  to  change  any  of  the  listed  values  please  enter  "); 
PUT_LINE("a  'y'  for  YES   otherwise  enter  a  'n'  for  NO"); 
GETCHARACTER(CHAR); 
if  CHAR  =  'Y'  or  CHAR  =  'y'  then 

CHAR :=  N; 

PUT_LINE(" Enter  number  corresponding  to  value  you  wish  to  change."); 

setcol(lO); 

GETJNTEGER(INPUT); 

VIDEO.CLEARSCREEN; 
else 

VIDEO.CLEARSCREEN; 

goto  KEEPJVALUES; 
end  if; 
elsif  REPLACE  =  TRUE  then 

PUT_LINE(" Enter  number  corresponding  to  value  you  wish  to  change."); 
set_col(10); 

GETJNTEGER(INPUT); 
VIDEO.CLEARSCREEN; 
end  if; 

case  INPUT  is 

when  1  =  > 

VIDEO.  CLE  ARSCREEN; 

NEW_LINE(2); 

PUT  LiNE( "******************************************************************")' 

NEW_LINE(2); 

PUT_LINE(" Please  enter  the  minimum  satellite  bus  discharge  voltage  about  "); 

PUT_LINE("30  volts  for  3-axis  stabilized  and  35.0  for  spin  stabilized"); 

NEW_LINE(2); 

SETCOL(IO); 

GET_DATA(MINIMUM_DISCHARGE_BUS_VOLTAGE); 
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PUT(" Minimum  discharge  bus  voltage  is    "); 

PUT(MINIMUM_DISCHARGE_BUS_VOLTAGE,FORE=  >4,AFT  =  >2,EXP=  >0); 
PUT("    volts"); 
NEW_LINE(3); 

when  2  =  > 

VIDEO.CLEARSCREEN; 
NEW_LINE(2); 

PUT  LINE(" ******************************************************************")• 

NEW_LINE(2); 

PUT_LINE( "Please  enter  the  DESIGN  bus  voltage"  ); 

NEW_LINE(2); 

SET_COL(10); 

GET_DATA(BUS_  VOLT  AGE); 

VIDEO.  CLEARSCREEN; 

PUTfDESIGN  Bus  voltage  is    "); 

PUT(BUS_VOLTAGE,FORE=  >4,AFT=  >2,EXP  =  >0); 

PUT("    volts"); 

NEW_LINE(2); 

when  3  =  > 

VIDEO.  CLEARSCREEN; 

NEW_LINE(2); 

PUT  LiNE( "******************************************************************")' 

NEW_LINE(2); 

PUT_LINE( "Please  enter  the  End  of  Life  battery  discharge  voltage  drop"); 

PUT_LINE( "about  1.0-2.0  volts"); 

NEW_LINE(2); 

SETCOL(IO); 

GET_DATA(BYPASS_DIODE_VOLTAGE_DROP); 

VIDEO.CLEARSCREEN; 

PUT("Minimum  discharge  bus  voltage  is    "); 

PUT(BYPASS_DIODE_VOLTAGE_DROP,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    volts"); 

NEW_LINE(2); 

when  4=  > 

VIDEO.  CLE  ARSCREEN ; 

NEW_LINE(2); 

PUT  LINE(  "******************************************************************")■ 

NE\V_LINE(2); 

SET_COL(5); 

PUT("Please  enter  End  of  life  battery  discharge  voltage       [4]  "); 

NEW_LINE(2); 

set_col(10); 

GET_DATA(EOL_BATTERY_DISCHARGE_VOLTAGE); 

VIDEO.CLEARSCREEN; 

NEW_LINE(2); 

PUT("End  of  life  battery  discharge  voltage  is  [1.1  volts]  "); 

PUT(EOL_BATTERY_DISCHARGE_VOLTAGE,FORE=  >4,AFT=  >2,EXP-  >0); 

PUT("    volts"); 

NEW_LINE(2); 
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when  5  =  > 

VIDEO.  CLE  ARSCREEN ; 

NEW_LINE(2); 

PUT  LINE(  "******************************************************************")• 

NEW_LINE(2); 

PUT_LINE(" Please  enter  the  time  satellite  is  in  eclipse  per  orbit  in  hours"); 

PUT_LINE(" (about  1.2  hours  in  geosynchronous)"); 

NEW_LINE(2); 

SET_COL(10); 

GET_DATA(ECLIPSE_TIME); 

VIDEO.  CLEARSCREEN; 

PUT("Eclipse  time  is"); 

PUT(ECLIPSE_TIME,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    hours"); 

NEW_LINE(2); 

when  6  =  > 

VIDEO.  CLEAR_SCREEN; 

NEW_LINE(2); 

PUT  ljn£( "************************************************** 

NEV7_LINE(2); 

PUT("Please  enter  the  Depth  of  Discharge  used  for  batteries  (0.50  -  0.75"); 

NEW_LINE(2); 

SETCOL(IO); 

GET_DATA(DEPTH_OF_DISCHARGE); 

VIDEO.  CLEARSCREEN; 

PUT("Depth  of  discharge  is    "); 

PUT(DEPTH_OF_DISCHARGE,FORE  =  >4,AFT=  >2,EXP=  >0); 

NEW_LINE(2); 


when  7  =  > 

VIDEO.  CLE  ARSCREEN ; 

NEW_LINE(2); 

PUT  LINE( "******************************************************************")■ 

NEW_LINE(2); 

PUT_LINE(" Please  enter  the  maximum  battery  discharge  voltage  "); 

PUT_LINE(" (default  1.5  volts)"); 

NEW_LINE(2); 

SETCOL(IO); 

GET_DATA(MAXIMUM_BATTERY_CHARGE_VOLTAGE); 

NEW_LINE(1); 

SET_COL(5); 

PUT("Maximum  Battery  Discharge  Voltage  "); 

SET_COL(60); 

PUT(MAXIMUM_BATTERY_CHARGE_VOLTAGE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    volts"); 

NEW_LINE(2); 

when  8  =  > 

VIDEO.CLEARSCREEN; 

NEW_LINE(2); 
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PUT  LiNEf "******************************************************************" )■ 

NEW_LINE(2); 

PUT_LINE( "Please  enter  the  series  connected  diode  voltage  drop"); 

PUT_LINE(" (default  0.8  volts)"); 

NEW_LINE(2); 

SETCOL(IO); 

GET_DATA(SERIES_CONNECTED_DIODE_VOLTAGE_DROP); 

NEW_LINE(1); 

SET_COL(5); 

NEW_LINE(1); 

PUT("Series  Connected  Diode  Voltage  Drop  "); 

SET_COL(60); 

PUT(SERIES_CONNECTED_DIODE_VOLTAGE_DROP,FORE  =  >4,AFT=  >2,EXP  =  >0); 

PUT("    volts"); 

NEW_LINE(2); 


when  9  =  > 

VIDEO.  CLEARSCREEN; 

NEW_LINE(2); 

PUT  LINE( "******************************************************************")• 

NE\V_LINE(2); 

PUT_LINE(" Please  enter  the  number  of  series  connected  diodes"); 

PUT_LINE(" (default  3)"); 

NEW_LINE(2); 

SETCOL(IO); 

GET_DATA(NUMBER_SERIES_CONNECTED_DIODES); 

NEW_LINE(1); 

SET_COL(5); 

PUT("Number  of  Series  Connected  Diodes  "); 

SET_COL(60); 

PUT(NUMBER_SERIES_CONNECTED_DIODES,FORE=  >4,AFT=  >2,EXP=  >0); 

NEW_LINE(2); 


when  10=  > 

VIDEO.  CLEARSCREEN; 
NEW_LINE(2); 

PUT  LINEf"******************************************************************")' 

NEV/_LINE(2); 

PUT_LINE(" Please  enter  the  battery  charger  voltage  drop"); 

PUT_LINE("(default  1.75  volts)"); 

NEW_LINE(2); 

SETCOL(IO); 

GET_DATA(BATTERY_CHARGER_VOLTAGE_DROP); 

NEW_LINE(1); 

SET_COL(5); 

PUT(" Battery  Charger  Voltage  Drop  "); 

SET_COL(60); 

PUT(BATTERY_CHARGER_VOLTAGE_DROP,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    volts"); 

NEW_LINE(2); 
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when  1 1  =  > 

VIDEO.CLEARSCREEN; 

NEW_LINE(2); 

PUT  LINE( "******************************************************************")• 

NEW_LINE(2); 

PUT_LINE( "Please  enter  the  battery  charge  discharge  efficiency"); 

PUT_LINE(" (default  0.9)"); 

NEW_LINE(2); 

SET_COL(10); 

GET_DATA(CHARGE_DISCHARGE_EFFICIENCY_BATTERY); 

NEWLINE(l); 

SET_COL(5); 

PUT(" Charge  Discharge  Voltage  Drop  "); 

SET_COL(60); 

PUT(CHARGE_DISCHARGE_EFFICIENCY_BATTERY,FORE  =  >4,AFT  =  >2,EXP=  >0); 

NEW_LINE(2); 

when  OTHERS  =  > 

VIDEO.CLEARSCREEN; 

NEW_LINE(2); 

NEW_LINE(2); 
SET_COL(5); 

PUT_LINE("ENTER  A  PROPER  NUMBER  IDENTIFIER  FOR  VARIABLE  TO  CHANGE!"); 
NEW_LINE(2); 
end  case; 

NEW_LINE(2); 

PUT  LJNE( "********************************************************************")■ 

NEW_LINE(2); 

CHAR :=  N; 

PUT_LINE("If  you  wish  to  change  a  value  please  enter  a    'y'    for  YES"); 

PUT_LINE("otherwise  enter  a  'n'  for  NO  "); 

REPLACE: -FALSE; 

GETCHARACTER(CHAR); 

if  CHAR  =  *Y'  or  CHAR  -  'y'  then 

CHAR  :  =  N; 

REPLACE:  =  TRUE; 

VIDEO.  CLE  ARSCREEN; 

goto  VALUE_NEW; 

else 

VIDEO.  CLEARSCREEN; 

PUT_LINE(" UNDERSTAND  NO  MORE  CHANGES"); 

NEW_LINE(3); 
end  if; 
STOP; 

<<KEEP_VALUES>> 

PUT  LINE( "****************************************************************************")• 

SETjCOL(5); 

PUT_LINE( "Values  for  the  following  parameters  are:  "); 
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PUT  LINE( *****************************************************************************'')■ 

SET~C0L(5); 

PUT("Minimum  discharge  voltage  of  bus"); 

set_col(60); 

PUT(MINIMUM_DISCHARGE_BUS_VOLTAGE(FORE  =  >4,AFT=  >2,EXP  =  >0);PUT("  volts"); 

NEW_LINE(1); 

SET_COL(5); 

PUT( "DESIGN  Satellite  Bus  Voltage"); 

SET_COL(60); 

PUT(BUS_VOLTAGE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    volts"); 

NEW_LINE(1); 

SET_COL(5); 

PUT("Bypass  diode  voltage  drop"); 

set_col(60); 

PUT(BYPASS_DIODE_VOLTAGE_DROP,FORE  =  >4,AFT  =  >2,EXP  =  >0);PUT("  volts"); 

NEWLINE(l); 

SET_COL(5); 

PUT("End  of  life  battery  discharge  voltage"); 

set_col(60); 

PUT(EOL_BATTERY_DISCHARGE_VOLTAGE,FORE  =  >4,AFT-  >2,EXP=  >0);PUT("  volts"); 

NEWLINE(l); 

SET_COL(5); 

PUT(" Satellite  eclipse  time  hours"); 

SET_COL(60); 

PUT(ECLIPSE_TIME,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    hours"); 

NEWLINE(l); 

SET_COL(5); 

PUT( "Depth  of  Discharge    "); 

SET_COL(60); 

PUT(DEPTH_OF_DISCHARGE,FORE=  >4,AFT=  >2,EXP=  >0); 

NEW_LINE(1); 

SET_COL(5); 

PUT("Maximum  Battery  Discharge  Voltage  "); 

SET_COL(60); 

PUT(MAXIMUM_BATTERY_CHARGE_VOLTAGE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    volts"); 

NEW_LINE(1); 

SET_COL(5); 

PUT("Series  Connected  Diode  Voltage  Drop  "); 

SET_COL(60); 

PUT(SERIES_CONNECTED_DIODE_VOLTAGE_DROP,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    volts"); 
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NEWLINE(l); 

SET_C0L(5); 

PUT("Number  of  Series  Connected  Diodes  "); 

SET_COL(60); 

PUT(NUMBER_SERIES_CONNECTED_DIODES,FORE=  >4,AFT=  >2,EXP=  >0); 

NEWLINE(l); 

SET_COL(5); 

PUT("Battery  Charger  Voltage  Drop  "); 

SET_COL(60); 

PUT(BATTERY_CHARGER_VOLTAGE_DROP,FORE  =  >4,AFT=  >2,EXP  =  >0); 

PUT("    volts"); 

NEWLINE(l); 

SET_COL(5); 

PUT("  Charge  Discharge  Voltage  Drop  "); 

SET_COL(60); 

PUT(CHARGE_DISCHARGE_EFFICIENCY_BATTERY,FORE  =  >4,AFT  =  >2,EXP=  >0); 

new_LINE(2); 

STOP; 

<  <BUS>  > 

VIDEO.CLEARSCREEN; 
NEW_LINE(2); 

PUT  LiNE( "******************************************************************")* 
NEW_LINE(2); 

PUT_LINE(" Please  enter  the  number  of  buses  used  in  your  satellite. "); 
PUT_LINE("Most  satellites  have  2  buses."); 
GETINTEGER(J); 
NEWLINE(l); 
PUT(" Satellite  has  "); 
PUT(J,WIDTH=>2); 
PUT("    buses"); 
if  J  >  2  then 
NEW_LINE(1); 

PUT_LINE("You  have  selected  more  then  two  buses.  Are  you  sure?"); 
PUT_LINE("To  change  the  number  of  buses  enter  a  «Y'  for  YES  or  'N'  for  NO."); 
NEW_LINE(2); 
GETCHARACTER(CHAR); 

if  CHAR  =  'Y'  or  CHAR  =  'y'  then 
CHAR  :=  N; 

VIDEO.CLEARSCREEN; 
goto  BUS; 
else 

VIDEO .  CLEARSCREEN ; 

PUT_LINE( "UNDERSTAND  MORE  THAN  TWO  BUSES  IS  OKAY."); 
NEW_LINE(2); 
end  if; 
end  if; 

NEWLINE(l); 

VIDEO.  CLE  ARSCREEN ; 
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PUT( "Satellite  has  "); 
PUT(J,WIDTH=>2); 
PUT("    buses"); 
NUMBEROFBUSES:  =  FLOAT(J); 


end  OPERATINGDATA; 

procedure  BATTERY     (BATTERYLOAD  :  in  out  FLOAT; 

DRUMSPINNER  :  in  out  BOOLEAN; 

MINIMUMD1SCHARGEBUSVOLTAGE   :  in  out  FLOAT; 
BUSVOLTAGE  :  in  out  FLOAT; 

BYPASSDIODEVOLTAGEDROP         :  in  out  FLOAT; 
EOLBATTERYDISCHARGEVOLTAGE    :  in  out  FLOAT; 
BUSPOWER  :  in  out  FLOAT; 

PAYLOADPOWER  :  in  out  FLOAT; 

CELLAH  :  in  out  FLOAT; 

DEPTH_OF_DISCHARGE  :  in  out  FLOAT; 

ECLIPSETIME  :  in  out  FLOAT; 

VOLTAGE_CHARGE_ ARRAY  :  in  out  FLOAT; 

NUMBEROFBUSES  :  in  out  FLOAT; 

MAXIMUMBATTERYCHARGEVOLTAGE  :  in  out  FLOAT; 
SERIESCONNECTEDDIODEVOLTAGEDROP  :  in  out  FLOAT; 
NUMBER_SERIES_CONNECTED_DIODES  :  in  out  FLOAT; 
BATTERYCHARGERVOLTAGEDROP     :  in  out  FLOAT; 
CHARGEDISCHARGEEFFICIENCYBATTERY  :  in  out  FLOAT; 
spacecraft_life  :  in  out  FLOAT; 

POWEREQUINOXCHARGE  :  in  out  FLOAT; 

POWERSOLSTICECHARGE  :  in  out  FLOAT)  is 

DESIGNMARGIN  :  FLOAT  :=  1.1; 

SOLARJNTENSITY  :  FLOAT  :=  135.0;    --  mw  /  cmA2 

SOLARARRAYTEMPSOLST1CE  :  FLOAT  :=  37.0;     --  celcius 

SOLARARRAYTEMPEQUINOX  :  FLOAT  :=  45.0;     --  celcius 

SOLARCELLTESTTEMP  :  FLOAT  :=  25.0;      --  celcius 

TEMPCOEFEOLCURRENT  :  FLOAT  :=  0.00024;  -  ma/cmA2 

TEMP_COEF_EOL_VOLTAGE  :  FLOAT  :=  -0.0022;  --  ma/cmA2 

CURRENTMAXPOWER  :  FLOAT  :=  0.2966;   --  A     Imp 

VOLTAGEMAXPOWER  :  FLOAT  :=  0.45;      --  V     Vmp 

CURRENTSHORTCIRCUIT  :  FLOAT  :=  0.315;     -- A     Isc 

VOLTAGEOPENCIRCUIT  :  FLOAT  :=  0.548;     -- V     Voc 

CELLWIDTH  :  FLOAT  :=  2.0;  --  cm 

CELLLENGTH  :  FLOAT  :=  4.0;  -  cm 

CELL_THICKNESS  :  FLOAT  :=  0.021;        --  cm  w/coverglass 

SOLSTICE_ARRAY_TEMP  :  FLOAT  :=  37.0;         --  degrees  celcius 

EQUINOX_ARRAY_TEMP  :  FLOAT  :=  45.0;         -  degrees  celcius 

ASSEMBLY_LOSS_CURRENT  :  FLOAT: -0.9800; 

ENVIRONMENT  ALDEGRADATIONCURRENT     :  FLOAT:  =0.9077; 
ENVIRONMENTAL_DEGRADATION_VOLTAGE      :  FLOAT:  =0.9675; 
-  SIF  =  SOLAR  INTENSITY  FACTOR 
SOLSTICE_SIF_CURRENT  :  FLOAT:  =0.94425; 

SOLSTICE_SIF_VOLTAGE  :  FLOAT:  =  1 .00000; 
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EQUINOXSIFCURRENT 

EQUINOXSIFVOLTAGE 

EFF_ILLUMINATION_FLAT_PANEL 

EFFJLLUMINATIONSPIN 

PANELWIRINGLOSSPERCELL 

SOLSTICESOLARARRAYTEMP 

EQUINOXSOLARARRAYTEMP 

BLOCKING  DIODE  VOLTAGE  DROP 


FLOAT:  =  0.9970; 
FLOAT:  =  1.0000; 

:  FLOAT:  =  1.0000; 
FLOAT:  =  3. 14159265359; 

:  FLOAT:  =0.005;       -  delta  V 
:  FLOAT:  =  39.0;   -- degree  celcius 
:  FLOAT:  =49.0;   —  degree  celcius 
:  FLOAT:  =0.9;     -- 


ARRAY  WIRING  HARNESS  AND  SLIP  RING  VOLTAGE  DROP:  FLOAT  :=  0.9; 


BIOCURRENT, 

CELLCURRENTEOLSOLSTICE, 

CELLCURRENTEOLEQUINOX, 

CELLVOLTAGEEOLSOLSTICE, 

CELLVOLTAGEEOLEQUINOX, 

NUMBERCELLSINSERIESCHARGEARRAYSOLSTICE, 
NUMBERCELLSINPARALLELCHARGEARRAYSOLSTICE, 
NUMBERCELLSINSERIESCHARGEARRAYEQUINOX, 
NUMBERCELLSINPARALLELCHARGEARRAYEQUINOX, 

TOTALNUMBERCELLS, 

POWERTOTAL,  " 

TOT  ALPO  WERPERBUS , 

ARRAYTOTALPOWER, 

POWERMARGIN, 

REQUIREDCURRENTSOLSTICEPERBUS , 

REQUIREDCURRENTEQUINOXPERBUS, 

TEMPOFCELLCHARACS, 

CELLAREA, 

NUMBERCELLSJNPARALLEL, 

NUMBER_CELLS_IN_SERIES, 

DESIGNLOADSOLSTICE, 

DESIGNLOADEQUINOX  :  FLOAT; 


FINAL 


BOOLEAN  :=  TRUE; 


PARAMETERS, 
CELLS 


INTEGER; 


OUTSC 


:  FILE  TYPE; 


EQUINOXCURRENT, 

SOLSTICECURRENT, 

MAXIM  UMCHARGEVOLT  AGE, 

RECHARGE  TIME  : FLOAT 
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CHARGE  :  INTEGER ; 

OUTF  :  FILE  TYPE; 


begin 

NEW_LINE(2); 

PUT(" Please  enter  the  Solar  Cell  Test  Temperature  in  degrees  celcius"); 

NEW_LINE(4); 

set_col(15); 

GET_DATA(SOLAR_CELL_TEST_TEMP); 

VIDEO.  CLE  ARSCREEN; 

PUT("Solar  Cell  Test  Temperature  is  "); 

PUT(SOLAR_CELL_TEST_TEMP,FORE  =  >3,AFT=  >2,EXP  =  >0); 

PUT("  celcius"); 

NEW_LINE(4); 

STOP; 


NEWLINE(l); 

PUT_LINE("     The  electrical  characteristics  of  typical  solar  cells  are  based  "); 

NEW_LINE(1); 

PUTfon  "); 

PUT(SOLAR_CELL_TEST_TEMP,FORE=  >2,AFT  =  >0,EXP=  >0); 

PUT("  degrees  celcius  temperature  and  standard  solar  intensity  "); 

NEW_LINE(2); 

PUT_LINE("of  135.3  mw/cmA2  on  a  cell  basis  at  BOL.    The  realistic  solar"); 

NEW_LINE(1); 

PUT_LINE( "array  power  is,  however,  calculated  by  considering  several    "); 

NEWLINE(l); 

PUT_LINE(" factors,  such  as  assembly  loss  factors,  environmental  degradation,"); 

NEW_LINE(1); 

PUT_LINE("the  seasonal  variation  of  solar  intensity,  solar  cell  temperature,  "); 

NEW_LINE(1); 

PUT_LINE("and  random  failures.  Some  typical  values  are  given  in  Table  6.6  "); 

NEW_LINE(1); 

PUT_LINE("of  Brij  N.  Agrawal's  book  Design  of  Geosynchronous  Spacecraft."); 

NEW_LINE(2); 

STOP; 

if  SPACECRAFTJJFE  =  10.01  then 

ASSEMBLYLOSSCURRENT  :  =0.9600; 

ENVIRONMENTALDEGRADATIONCURRENT      :  =0.8561; 
EN  VIRONMENTALDEGRAD  ATIONVOLTAGE      :  =  0.9350; 
-  SIF  =  SOLAR  INTENSITY  FACTOR 
SOLSTICE_SIF_CURRENT  :  =0.8885; 

SOLSTICESIFVOLTAGE  :  =  1 .00000; 

EQUINOX_SIF_CURRENT  :  =0.9941; 

EQUINOX  SIF  VOLTAGE  :  =  1.0000; 
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elsif  SPACECRAFTLIFE  <  =  2.0  then 

ASSEMBLYLOSSCURRENT  :  =0.9800; 

ENVIRONMENT  ALDEGRADATIONCURRENT      :  =0.9077; 
ENVIRONMENT  ALDEGRADATIONVOLT  AGE      :  =0.9675; 
--  SIF  =  SOLAR  INTENSITY  FACTOR 
SOLSTICESIFCURRENT  :  =0.94425; 

SOLSTICESIFVOLTAGE  :  =  1 .00000; 

EQUINOXSIFCURRENT  :  =0.9970; 

EQUINOXSIF  VOLTAGE  :  =  1.0000; 


elsif  SPACECRAFTLIFE  >  2.0  and  SPACECRAFTLIFE  <  7.0  then 

ASSEMBLY_LOSS_CURRENT:=ASSEMBLY_LOSS_CURRENT 

/(1.011722**INTEGER(SPACECRAFT_LIFE-2.0)); 

ENVIRONMENT  AL_DEGRADATION_CURRENT:  =  ENVIRONMENT  AL_DEGRADATION_CURRENT 

/1.0216787**INTEGER(SPACECRAFT_LIFE-2.0); 

ENVIRONMENT  ALDEGRADATIONVOLT  AGE:  =  ENVIRONMENTAL_DEGRADATION_VOLTAGE 

/ 1 .  0068572**INTEGER(SP  ACECRAFTLIFE-2. 0) ; 
--  SIF  =  SOLAR  INTENSITY  FACTOR 

SOLSTICE_SIF_CURRENT:  =  SOLSTICESIFCURRENT 

/1.0111722**INTEGER(SPACECRAFT_LIFE-2.0); 

EQUINOXSIFCURRENT:  =  EQUINOXSIFCURRENT 

/1.000582763**INTEGER(SPACECRAFT_LIFE-2.0); 


elsif  SPACECRAFTLIFE  >  =  7.0  and  SPACECRAFTLIFE  <  8.0  then 

ASSEMBLYLOSSCURRENT  :=  0.96; 

ENVIRONMENT  ALDEGRADATIONCURRENT  :=  0.8154; 

ENVIRONMENTALDEGRADATIONVOLTAGE  :=  0.935; 

--  SIF  =  SOLAR  INTENSITY  FACTOR 
SOLSTICESIFCURRENT  :=  0.8885; 

SOLSTICESIFVOLTAGE  :=  1.0; 

EQUINOX_SIF_CURRENT  :=  0.9941; 

EQUINOXSIFVOLTAGE  :=  1.0; 

EFFILLUMINATIONFLATPANEL  :=  1.0; 

EFFILLUMINATIONSPIN  :=  1.0; 

elsif  SPACECRAFTLIFE  >  =  8.0  and  SPACECRAFTLIFE  <  =  50.0  then 
—  1.016397  is  a  mathematical  constant  to  cause  a  continuous 
~  5  %  degradation  every  5  years. 

ASSEMBLY_LOSS_CURRENT:=ASSEMBLY_LOSS_CURRENT 

/1.016397**INTEGER(SPACECRAFT_LIFE-7.0); 
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ENVIRONMENT  AL_DEGRADATION_CURRENT:  =  ENVIRONMENT  AL_DEGRADAT10N_CURRENT 

/1.016397**INTEGER(SPACECRAFT_LIFE-7.0); 

ENVIRONMENTAL_DEGRADATION_VOLTAGE:  =  ENVIRONMENTAL_DEGRADATION_VOLTAGE 

/1.016397**INTEGER(SPACECRAFT_LIFE-7.0); 
--  SIF  -  SOLAR  INTENSITY  FACTOR 

SOLSTICESIFCURRENT:  =  SOLSTICESIFCURRENT 

/1.016397**INTEGER(SPACECRAFT_LIFE-7.0); 

EQUINOXSIFCURRENT:  =  EQUINOXSIFCURRENT 

/1.016397**INTEGER(SPACECRAFT_LIFE-7.0); 

else 

VIDEO.  CLEARSCREEN; 

PUT_LINE("  Spacecraft  life  to  long     DEFAULT  values  will  be  used"); 

end  if; 

PUT_LINE("Environmental  Degradation  Factors  for  given  Spacecraft  Life"); 

PUT  LINE( "***********************************************************")• 

new_line(l); 

PUT("Assembly  Loss  Current  is  "); 

SET_COL(60); 

PUT(ASSEMBLY_LOSS_CURRENT,FORE=  >  1,AFT  =  >4,EXP=  >0); 

NEW_LINE(2); 

PUT(" Environmental  Degradation  Current  is  "); 

SET_COL(60); 

PUT(ENVIRONMENTAL_DEGRADATION_CURRENT,FORE=  >  1,AFT=  >4,EXP=  >0); 

NEW_LINE(2); 

PUT(" Environmental  Degradation  Voltage  is  "); 

SET_COL(60); 

PUT(ENVIRONMENTAL_DEGRADATION_VOLTAGE,FORE=  >  1,AFT=  >4,EXP=  >0); 

NEW_LINE(2); 

PUT("Solar  Intensity  Factor  for  Current  during  Solstice   is  "); 

SET_COL(60); 

PUT(SOLSTICE_SIF_CURRENT,FORE=  >  1,AFT=  >4,EXP=  >0); 

NEW_LINE(2); 

PUT("Solar  Intensity  Factor  for  Voltage  during  Solstice   is  "); 

SET_COL(60); 

PUT(SOLSTICE_SIF_VOLTAGE,FORE=  >  1,AFT=  >4,EXP=  >0); 

NEW_LINE(2); 

PUT("Solar  Intensity  Factor  for  Current  during  Equinox  is  "); 

SET_COL(60); 

PUT(EQUINOX_SIF_CURRENT,FORE=  >  1,AFT=  >4,EXP=  >0); 

NEW_LINE(2); 
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PUT("Solar  Intensity  Factor  for  Voltage  during  Equinox  is  "); 

SET_COL(60); 

PUT(EQUINOX_SIF_VOLTAGE,FORE  =  >  1,AFT=  >4,EXP=  >0); 

NEW  LINE(2); 


NEW_LINE(2); 

PUT_LINE("To  use  the  above  calculated  values  enter  a      '1'"); 

NEWLINE(l); 

PUT_LINE("To  change  the  calculated      values  enter  a      '2'"); 

NEWLINE(l); 

SET_COL(5); 
GETJNTEGER(CELLS); 

case  CELLS  is 
when  1  =  > 

PUT_LINE("  Understand  default  values  will  be  used"); 

when  2  =  > 

VIDEO.  CLE  ARSCREEN ; 

new_line(2); 

NEW_LINE(2); 

PUT("Please  enter  desired  value  for  Assembly  Loss  Current  "); 

NEW_LINE(2); 

SET_COL(15); 

GET_DATA(ASSEMBLY_LOSS_CURRENT); 

VIDEO.CLEARSCREEN; 

new_line(2); 

PUT  LJNEC ******************************************************************")■ 

NEW_LINE(2); 

PUT("Please  enter  desired  value  for  Environmental  Degradation  (current)"); 

NEW_LINE(2); 

SET_COL(15); 

GET_DATA(ENVIRONMENTAL_DEGRADATION_CURRENT); 

VIDEO.CLEARSCREEN; 

new_line(2); 

PUT  LiNE( "******************************************************************")' 

NEW_LINE(2); 

PUT("Please  enter  desired  value  for  Environmental  Degradation  (voltage)"); 

NEW_LINE(2); 

SET_COL(15); 

GETDATA(ENVIRONMENTALDEGRADATIONVOLTAGE); 

VIDEO.  CLEARSCREEN; 
new_line(2); 

PUT  ]^\NE(n ******************************************************************")• 
NEW_LINE(2); 
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PUT_LINE("  Please  enter  desired  value  for  "); 

PUT_LINE("     Solar  Intensity  Factor  (solstice  current)"); 

NEW_LINE(2); 

SET_COL(15); 

GET_DATA(SOLSTICE_SIF_CURRENT); 

VIDEO.  CLEARSCREEN; 

new_line(2); 

PUT  LINE( "******************************************************************")• 

NEW_LINE(2); 

PUT_LINE( "Please  enter  desired  value  for  "); 

PUT_LINE("     Solar  Intensity  Factor  (solstice  voltage)"); 

NEW_LINE(2); 

SET_COL(15); 

GET_DATA(SOLSTICE_SIF_VOLTAGE); 

VIDEO.CLEARSCREEN; 

new_line(2); 

PUT  LINE( "******************************************************************"). 

NEW_LINE(2); 

PUT_LINE( "Please  enter  desired  value  for  "); 

PUT_LINE("     Solar  Intensity  Factor  (equinox  current)"); 

NEW_LINE(2); 

SET_COL(15); 

GETDATA(EQUINOXSIFCURRENT); 

VIDEO.  CLEARSCREEN; 

new_line(2); 

NEV7_LINE(2); 

PUT_LINE( "Please  enter  desired  value  for  "); 

PUT_LINE("     Solar  Intensity  Factor  (equinox  voltage)"); 

NEW_LINE(2); 

SET_COL(15); 

GETDATA(EQUINOXSIFVOLTAGE); 

when  OTHERS  =  > 

VIDEO.CLEARSCREEN; 

NEW_LINE(2); 

SET_COL(5); 

PUT_LINE(" Understand  Calculated  values  will  be  used"); 

NEW_LINE(2); 
end  case;    --  CHARGE 
VIDEO.CLEARSCREEN; 
NEW_LINE(1); 

PUTfSOLAR  ARRAY  DESIGN  FACTORS  ARE:"); 
NEW_LINE(2); 

PUT("Assembly  Loss  Current  is  "); 
SET_COL(60); 

PUT(ASSEMBLY  LOSS_CURRENT,FORE=  >  1,AFT=  >4,EXP=  >0); 
NEW_LINE(2); 
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PUT(" Environmental  Degradation  Current  is  "); 

SET_COL(60); 

PUT(ENVIRONMENTAL_DEGRADATION_CURRENT,FORE  =  >  1,AFT  =  >4,EXP=  >0); 

NEW_LINE(2); 

PUT(" Environmental  Degradation  Voltage  is  "); 

SET_COL(60); 

PUT(ENVIRONMENTAL_DEGRADATION_VOLTAGE,FORE  =  >  1,AFT=  >4,EXP=  >0); 

NEW_LINE(2); 

PUT("Solar  Intensity  Factor  for  Current  during  Solstice  is  "); 

SET_COL(60); 

PUT(SOLSTICE_SIF_CURRENT,FORE  =  >  1,AFT=  >4,EXP=  >0); 

NEW_LINE(2); 

PUT("Solar  Intensity  Factor  for  Voltage  during  Solstice   is  "); 

SET_COL(60); 

PUT(SOLSTICE_SIF_VOLTAGE,FORE=  >  1,AFT=  >4,EXP=  >0); 

NEW_LINE(2); 

PUT("Solar  Intensity  Factor  for  Current  during  Equinox  is  "); 

SET_COL(60); 

PUT(EQUINOX_SIF_CURRENT,FORE=  >  1,AFT=  >4,EXP=  >0); 

NEW_LINE(2); 

PUT("SoIar  Intensity  Factor  for  Voltage  during  Equinox  is  "); 

SET_COL(60); 

PUT(EQUINOX_SIF_VOLTAGE,FORE  =  >  1,AFT=  >4,EXP=  >0); 

NEW_LINE(3); 

STOP; 

NEWLINE(l); 

PUT  LJNE( "*****************************************************************")' 

NE\V_LINE(2); 

PUT_LINE("  SOLAR  CELL  CHARACTERISTICS"); 

PUT  LiNEf"****************************************************************"1)- 

PUT~LINE(" Choice  T        '2'         43'    '4'      '5'         '6'  "); 

PUT_LINE("Charac        Intelsat   Intelsat      Intelsat     GaAs/Ge     AlAs/Ge  "); 
PUT_LINE("  IV  V  VI  "); 

PUT_L1NE("  Si  Si        "); 

PUT_LINE("                                        K4-3/4     K7  "); 
PUT_LINE(" "); 

PUT_LINE("Imp   Amps      0.125     0.2966     0.391     0.644     0.725     0.780"); 

PUT_LINE("Vmp   Volts     0.445     0.450      0.454     0.478     0.885     0.812"); 

PUT_LINE("Isc   Amps  0.141     0.315      0.4187   0.6887   0.735     0.878"); 

PUT_LINE("Voc   Volts  0.560     0.548      0.545     0.590     0.889     0.851"); 

PUT_LINE("Size  cm  2x2     2.1x4.0  1.8x6.2  2.5x6.2     2x4       2x2"); 
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PUT_LINE(  "Thickness      0.033     0.025      0.020     0.020     .020       0.20"); 

PUT_LINE(  "Material  Si         Si  Si         Si      GaAs/Ge   AlAs/Ge"); 

PUT_LINE("To  use  the  above  calculated  values  enter  the  appropriate"); 

PUT_LINE(  "number  located  at  the  top  of  the  column.    To  enter  your  own"); 

PUT_LINE("cell  parameters  enter  a  47'"); 

SET_COL(5); 
GETJNTEGER(PARAMETERS); 


case  PARAMETERS  is 
when  1  =  > 

TEMPCOEFEOLCURRENT 

TEMPCOEFEOLVOLTAGE 

CURRENT_MAX_POWER 

VOLTAGEMAXPOWER 

CURRENTSHORTCIRCUIT 

VOLTAGEOPENCIRCUIT 

CELLWIDTH 

CELLLENGTH 

CELL_THICKNESS 

when  2=  > 

TEMP_COEF_EOL_CURRENT 

TEMPCOEFEOLVOLTAGE 

CURRENTMAXPOWER 

VOLT  AGEMAX  POWER 

CURRENTSHORTCIRCUIT 

VOLTAGEOPENCIRCUIT 

CELLWIDTH 

CELL_LENGTH 

CELLTHICKNESS 

when  3  =  > 

TEMPCOEFEOLCURRENT 

TEMPCOEFEOLVOLTAGE 

CURRENTMAXPOWER 

VOLTAGEMAXPOWER 

CURRENTSHORTCIRCUIT 

VOLTAGEOPENCIRCUIT 

CELLWIDTH 

CELLLENGTH 

CELL_THICKNESS 

when  4  =  > 

TEMPCOEFEOLCURRENT 
TEMPCOEFEOLVOLTAGE 
CURRENT_MAX_POWER 
VOLTAGE  MAX  POWER 


:  =  0.00024;     --  ma/cmA2 
:=  -0.0022; 
:=  0.1250;      --  A     Imp 
:=  0.445;        --  V     Vmp 
:=  0.141;        -  A     Isc 
:=  0.560;        -- V     Voc 
:=  2.0;  --  cm 

:=  2.0;  —  cm 

:=  0.033;       -  cm 


:=  0.00024;     --  ma/cmA2 


:=  -0.0022; 

:=  0.2966;      -A 

Imp 

:=  0.45;         -- V 

Vmp 

:=  0.315;        --  A 

Isc 

:=  0.548;        --  V 

Voc 

2.0;          --  cm 

=  4.0;          --  cm 

=  0.025;        --  cm 

:=  0.00024;     --  ma/cmx2 


:=  -0.0022; 

:=  0.391; 

•A 

Imp 

:=  0.454; 

-  V 

Vmp 

:=  0.4187;      - 

-A 

Isc 

:=  0.545; 

V 

Voc 

1.8;          --  cm 

=  6.2;          --  cm 

=  0.02;         -  cm 

:=  0.00024; 

--  ma/cm' 

:=  -0.0022; 

:=  0.644; 

•  A 

Imp 

:=  0.478; 

■  V 

Vmp 
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CURRENT  SHORT  CIRCUIT 

:  =  0.6887;      - 

-  A 

Isc 

VOLTAGE  OPEN  CIRCUIT 

:=  0.590; 

V 

Voc 

CELL  WIDTH 

:  =  2.085;          --cm 

CELL  LENGTH 

:=  6.205;          —  cm 

CELLTHICKNESS 

:=  0.02;         --cm 

when  5=  > 

TEMP  COEF  EOL  CURRENT 

:=  0.00024; 

—  ma/cm" 

TEMP  COEF  EOL  VOLTAGE 

:=  -0.0022; 

CURRENT  MAX  POWER 

:=  0.725; 

A 

Imp 

VOLTAGE  MAX  POWER 

:=  0.750; 

V 

Vmp 

CURRENT  SHORT  CIRCUIT 

:=  0.735;       - 

-  A 

Isc 

VOLTAGE  OPEN  CIRCUIT 

:=  0.888; 

V 

Voc 

CELL  WIDTH 

:=  2.0;          —  cm 

CELL  LENGTH 

:=  4.0;          —  cm 

CELLTHICKNESS 

:=  0.02;         --  cm 

when  6  =  > 

TEMP  COEF  EOL  CURRENT 

:=  0.00024; 

—  i 

na/cm' 

TEMP  COEF  EOL  VOLTAGE 

:=  -0.0022; 

CURRENT  MAX  POWER 

:=  0.780; 

■  A 

Imp 

VOLTAGE  MAX  POWER 

:=  0.812; 

■  V 

Vmp 

CURRENT  SHORT  CIRCUIT 

:=  0.878; 

-A 

Isc 

VOLTAGE  OPEN  CIRCUIT 

:=  0.851; 

V 

Voc 

CELL  WIDTH 

:=  2.0;          —  cm 

CELL  LENGTH 

:=  2.0;          —  cm 

CELL  THICKNESS 

:=  0.02;         --  cm 

when  7  =  > 

VIDEO.  CLE  AR_SCREEN; 

PUT  LINEf "************************************************************") ■ 

PUT~LINE("  Please  enter  the  value  for  temperature  coefficient  EOL  CURRENT"); 

PUT_LINE( "Default  value  is   -0.0022  A  /  degree  C  "); 

SET_COL(15); 

GET_DATA(TEMP_COEF_EOL_CURRENT); 

NEW_LINE(2); 

VIDEO.  CLEARSCREEN; 

SET_COL(15);  " 

PUT( "Temperature  coefficient  EOL  CURRENT  is  "); 

PUT(TEMP_COEF_EOL_CURRENT,FORE=  >  1,AFT=  >4,EXP=  >0); 

PUT("    ma/cmA2");  NEW_LINE(2); 

PUT  LINE(" ************************************************************")• 

PUT_LINE(" Please  enter  the  value  for  temperature  coefficient  EOL  VOLTAGE"); 

PUT_LINE( "Default  value  is   0.00024  V  /  degree  C"); 

SET_COL(15); 

GETDATAfTEMPCOEFEOLVOLTAGE); 

VIDEO. CLEAR  SCREEN; 
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NEW_LINE(2); 

SET_COL(15); 

PUT( "Temperature  coefficient  EOL  VOLTAGE  is  "); 

PUT(TEMP_COEF_EOL_VOLTAGE,FORE  =  >  1,AFT=  >4,EXP=  >0); 

PUT("    mv/cmA2");    NEW_LINE(2); 

PUT  LINE(  "************************************************************ "y 
PUT~LINE("Please  enter  the  value  for  CURRENT  at  MAXIMUM  POWER  (Imp)  "); 

PUT_LINE("Default  value  is   0.2966  Amps"); 

SET_COL(15); 

GET_DATA(CURRENT_MAX_POWER ); 

VIDEO.  CLE  ARSCREEN; 

NEW_LINE(2); 

SET_COL(15); 

PUT("Current  at  Maximum  Power  is  "); 

PUT(CURRENT_MAX_POWER  ,FORE  =  >  1,AFT=  >4,EXP  =  >0); 

PUT("    Amps      --Imp");    NEW_LINE(2); 

PUT~LINE( "Please  enter  the  value  for  VOLTAGE  at  MAXIMUM  POWER  (Imp)  "); 

PUT_LINE( "Default  value  is  0.45  Volts  "); 

SET_COL(15); 

GET_DATA(VOLTAGE_MAX_POWER  ); 

VIDEO.  CLE  AR_SCREEN; 

NEW_LINE(2); 

SET_COL(15); 

PUT(" Voltage  at  Maximum  Power  is  "); 

PUT(VOLTAGE_MAX_POWER  ,FORE=  >  1,AFT=  >4,EXP-  >0); 

PUT("    Volts      -  Vmp");  NEW_LINE(2); 

PUT  LINE( "************************************************************ "y 

PUT_LINE( "Please  enter  the  value  for  Short  Circuit  Current  (Isc)  "); 

PUT_LINE( "Default  value  is   0.315  Amps"); 

SET_COL(15); 

GET_DATA(CURRENT_SHORT_CIRCUIT   ); 

VIDEO.  CLE  ARSCREEN; 

NEW_LINE(2); 

SET_COL(15); 

PUT(" Short  Circuit  Current  is  "); 

PUT(CURRENT_SHORT_CIRCUIT   ,FORE=  >  1,AFT=  >4,EXP=  >0); 

PUT("    Amps      -- Isc");NEW_LINE(2); 

PUT  LINEf  "************************************************************") • 

PUT_LINE(" Please  enter  the  value  for  Open  Circuit  Voltage  (Voc)  "); 

PUT_LINE("Default  value  is   0.548  Volts  "); 

SET_COL(15); 

GET_DATA(VOLTAGE_OPEN_CIRCUIT  ); 

VIDEO.CLEARSCREEN; 

NEW_LINE(2); 

SET_COL(15); 

PUT("Open  Circuit  Voltage  is  "); 
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PUT(VOLTAGE_OPEN_CIRCUIT   ,FORE=  >  1,AFT=  >4,EXP=  >0); 
PUT("    Volts      --  Voc");NEW_LINE(2); 

PUT  LINE( "************************************************************") • 

PUT_LINE("  Please  enter  the  value  for  Solar  Cell  Width  in  cm."); 

PUT_LINE("Default  value  is   2  cm  "); 

SET_C0L(15); 

GET_DATA(CELL_WIDTH  ); 

VIDEO.CLEARSCREEN; 

NEW_LINE(2); 

SET_COL(15); 

PUT("Solar  Cell  Width  is  "); 

PUT(CELL_WIDTH,FORE  =  >2,AFT=  >2,EXP=  >0); 

PUT("    cm");NEW_LINE(2); 

PUT  LJNE("********',<********J,<**************',<***********************',t',<**")' 

PUT("Please  enter  the  value  for  Solar  Cell  Length  in  cm."); 

PUTLINEC  Default  value  is   4  cm"); 

SET_COL(15); 

GET_DATA(CELL_LENGTH  ); 

VIDEO.  CLEAR_SCREEN; 

NEW_LINE(2); 

SET_COL(15); 

PUTfSolar  Cell  Length  is  "); 

PUT(CELL_LENGTH,FORE=  >2,AFT=  >2,EXP  =  >0); 

PUT("    cm");  NEW_LINE(2); 

PUT("Please  enter  the  value  for  Solar  Cell  Thickness  in  cm.  "); 

PUT_LINE(" Default  value  is  0.025  cm  "); 

SET_COL(15); 

GET_DATA(CELL_THICKNESS); 

VIDEO.  CLEARSCREEN; 

NEW_LINE(2); 

SET_COL(15); 

PUT(" Solar  Cell  Thickness  is  "); 

PUT(CELL_THICKNESS,FORE=  >2,AFT=  >4,EXP=  >0); 

PUT("    cm");NEW_LINE(2); 

when  OTHERS  =  > 

VIDEO.  CLEARSCREEN; 

NEW_LINE(2); 

SET_COL(5); 

PUT_LINE(" Understand  Default  values  will  be  used"); 

end  case;    --  CHARGE 
-  STOP; 

VIDEO.  CLEAR_SCREEN; 

PUT  LiJsJE( "************************************************************")■ 
~PUT  LINE("  SOLAR  CELL  PARAMETERS  ARE     "); 


NEW_LINE(2); 
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SET_C0L(15); 

PUT( "Temperature  coefficient  EOL  CURRENT  is  "); 

SET_COL(60); 

PUT(TEMP_COEF_EOL_CURRENT,FORE  =  >  1,AFT  =  >4,EXP=  >0); 

PUT("    ma/cmA2"); 

NEW_LINE(1); 

SET_COL(15); 

PUT( "Temperature  coefficient  EOL  VOLTAGE  is  "); 

SET_COL(59); 

PUT(TEMP_COEF_EOL_VOLTAGE,FORE  =  >  1,AFT  =  >4,EXP=  >0); 

PUT("    ma/cmA2"); 

NEW_LINE(1); 

SET_COL(15); 

PUT("Current  at  Maximum  Power  is  "); 

SET_COL(60); 

PUT(CURRENT_MAX_POWER  ,FORE-  >  1,AFT=  >4,EXP=  >0); 

PUT("    Amps  (Imp)"); 

NEW_LINE(1); 

SET_COL(15); 

PUT("Voltage  at  Maximum  Power  is  "); 

SET_COL(60); 

PUT(VOLTAGE_MAX_POWER  ,FORE  =  >  1,AFT=  >4,EXP  =  >0); 

PUT("    Volts  (Vmp)"); 

NEW_LINE(1); 

SET_COL(15); 

PUT("Short  Circuit  Current  is  "); 

SET_COL(60); 

PUT(CURRENT_SHORT_CIRCUIT   ,FORE=  >  1,AFT=  >4,EXP=  >0); 

PUT("    Amps  (Isc)"); 

NEW_LINE(1); 

SET_COL(15); 

PUT("Open  Circuit  Voltage  is  "); 

SET_col(60); 

PUT(VOLTAGE_OPEN_CIRCUIT   ,FORE=  >  1,AFT=  >4,EXP=  >0); 

PUT("    Volts  (Voc)"); 

NEW_LINE(1); 

SET_COL(15); 

PUT("Solar  Cell  Width  is  "); 

SET_COL(59); 

PUT(CELL_WIDTH,FORE=  >2,AFT=  >4,EXP=  >0); 

PUT("    cm"); 

NEW_LINE(1); 

SET_COL(15); 

PUT("Solar  Cell  Length  is  "); 

SET_COL(59); 
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PUT(CELL_LENGTH,FORE=  >2,AFT=  >4,EXP  =  >0); 
PUT("    cm"); 

NEW_LINE(1); 

SET_C0L(15); 

PUT("Solar  Cell  Thickness  is  "); 

SET_COL(59); 

PUT(CELL_THICKNESS,FORE  =  >2,AFT=  >4,EXP=  >0); 

PUT("   cm"); 

NEWLINE(l); 

PUT  LINE( "************************************************************")■ 

NEW_LINE(3); 

STOP; 

—  Cell  current  at  maximum  power  point  of  EOL  summer  solstice 

--  PUT(CURRENT_MAX_POWER,FORE  =  >4,AFT=  >4,EXP=  >0); 

--  NEWLINE(l); 

--  PUT(SOLSTICE_SOLAR_ARRAY_TEMP   ,FORE=  >4,AFT=  >4,EXP  =  >0); 

--  NEW_LINE(1); 

--  PUT(  TEMP_COEF_EOL_CURRENT,FORE  =  >4,AFT=  >4,EXP=  >0); 

--  NEW_LINE(1); 

--  PUT(SOLAR_CELL_TEST_TEMP,FORE=  >4,AFT=  >4,EXP=  >0); 

--  NEWLINE(l); 

--  PUT(ENVIRONMENTAL_DEGRADATION_CURRENT     ,FORE=  >4,AFT=  >4,EXP-  >0); 

--  NEW_LINE(1); 

--  PUT(ASSEMBLY_LOSS_CURRENT   ,FORE=  >4,AFT=  >4,EXP=  >0); 

--  NEW_L1NE(1); 


<  <  REITERATE  VOLTAGE  >  > 


if  FINAL  =  FALSE  then 
VIDEO.  CLE  ARSCREEN ; 
FINAL:  =TRUE; 

PUT_LINE("PREVIOUSLY  ENTERED  DEFAULT  VALUES  OF  FIRST  ITERATION  WILL  BE  USED"); 
PUT_LINE("BE  USED  ON  THIS  ITERATION  EXCEPT  FOR  REQUESTED  VALUES"); 
PUT  LINEC" ******************************************************************")• 


NEW_LINE(2); 

PUT_LINE(" Please  enter  the  minimum  satellite  bus  discharge  voltage"); 

PUT_LINE( "about  30  volts"); 

SET_COL(10); 

GET_DATA(MINIMUM_DISCHARGE_BUS_VOLTAGE); 

VIDEO.  CLE  ARSCREEN ; 

PUT("Minimum  discharge  bus  voltage  is    "); 
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PUT(MINIMUM_DISCHARGE_BUS_VOLTAGE,FORE  =  >4,AFT=  >2,EXP  =  >0); 
PUT(n    volts"); 

NEW_LINE(2); 

PUT  LINE( "******************************************************************"  \. 

NEW_LINE(2); 

PUT("Please  enter  the  DESIGN  satellite  bus  voltage"); 
SETCOL(IO); 

GETDATA(BUSVOLTAGE); 
VIDEO.  CLE  ARSCREEN; 
PUT("Bus  voltage  is    "); 

PUT(BUS_VOLTAGE,FORE=  >4,AFT=  >2,EXP=  >0); 
PUT("    volts"); 
end  if; 


NEW_LINE(2); 

SETCOL(l); 

PUT( "Series  cells  required  for  minimum  discharge  voltage  FLOAT"); 

SERIESCELLSFORMINDISVOLT:  = 

((MINIMUMDISCHARGEBUSVOLTAGE  +  BYPASSDIODEVOLTAGEDROP) 

/EOLBATTERYDISCHARGEVOLTAGE)  +  1 .0;      -- 
SET_COL(64); 
PUT(SERIES_CELLS_FOR  MINDISJVOLT,  FORE  =  >  4,  AFT  -  >  2,  EXP  -  >  0); 

NJNTEGER:  =  INTEGER(SERIES_CELLS_FOR_MIN_DIS_VOLT); 

SETCOL(l); 

PUT("Series  cells  required  for  minimum  discharge  voltage  INTEGER"); 

SET_COL(64); 

PUT(FLOAT(N_INTEGER),FORE=  >4,AFT=  >2,EXP=  >0); 

if  FLOAT(NINTEGER)  <  SERIES_CELLS_FOR_MIN_DIS_VOLT   then 

NJNTEGER:  =  NJNTEGER  +  1 ; 
end  if; 

SERIES_CELLS_FORMIN_DIS_VOLT:=FLOAT(N  INTEGER); 
SET_COL(l); 

PUT("Series  cells  required  for  minimum  discharge  voltage   ROUND  UP"); 
SET_COL(64); 

PUT(SERIES_CELLS_FOR_MIN_DIS_VOLT,FORE=  >4,AFT=  >2,EXP=  >0); 
NEW_LINE(2); 

PUT("Minimum  discharge  voltage  is  "); 
MINIMUM_DISCHARGE_BUS_VOLTAGE:=((SERIES_CELLS_FOR_MIN_DIS_VOLT-1.0) 

*EOL_BATTERY_DISCHARGE_VOLTAGE)-BYPASS_DIODE_VOLTAGE_DROP; 
SET_COL(64); 

PUT(MINIMUM_DISCHARGE_BUS_VOLTAGE,FORE-  >4,AFT-  >2,EXP-  >0);PUT("  volts"); 
newjine(4); 

STOP; 

newline(2); 

PUT_LINE("     The  power  required  by  a  bus  will  be  all  or  part  of  the  total"); 

PUT_LINE( "power.    Therefore  the   batteries   for   each   bus   must   provide"); 
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PUT_LINE( "power   for   the   maximum     eclipse   time   of     1.2     hours   for"); 

PUT_LINE( "geosynchronous  orbits."); 

new_line(2); 

CELLAH:  =  (B  ATTERY_LOAD/NUMBER_OF_BUSES*ECLIPSE_TIME) 

/(MINIMUM_DISCHARGE_BUS_VOLTAGE*DEPTH_OF_DISCHARGE); 

PUT("     The  required  Cell  capacity  is  "); 
PUT(CELL_AH,FORE  =  >3,AFT=  >2,EXP=  >0); 
PUT("  ampere  hours"); 

NEW_LINE(2); 

BUS_POWER:=BATTERY_LOAD/NUMBER_OF_BUSES; 

PUT("Bus  Power  is  "); 

PUT(BUS_POWER,FORE=  >4,AFT=  >2,EXP  =  >0);PUT("   watts"); 

new_line(2); 

PUT_LINE("     To  determine  the  maximum  charge  voltage  it  is  assumed  that  an"); 

PUT("open  circuit  failure  of  a  battery  cell  during  charge  is    "); 

PUT(SERIES_CONNECTED_DIODE_VOLTAGE_DROP,FORE  =  >  1,AFT=  >2,EXP=  >0); 

PUT("    volts"); 

NEW_LINE(1); 

PUT_LINE("per  diode  usually  accomodated  by  three  series  connected  "); 

PUT_LINE("silicon  diodes  connected  in  parallel  with  the  cell."); 

NEW_LINE(2); 

STOP; 


NEW_LINE(2); 

M  AXIMUMCHARGEVOLTAGE:  =  M  AXIMUMB  ATTERYCHARGEVOLTAGE 

*(SERIES_CELLS_FOR_MIN_DIS_VOLT-1.0) 

+  NUMBERSERIESCONNECTEDDIODES 

*SERIES_CONNECTED_DIODE_VOLTAGE_DROP; 
VIDEO. CLEARSCREEN; 
PUT("Maximum  Charge  Voltage  is"); 
SET_COL(64); 

PUT(MAXIMUM_CHARGE_VOLTAGE,FORE=  >4,AFT=  >2,EXP=  >0); 
PUT("    volts"); 
NEW_LINE(2); 

STOP; 

NEW_LINE(2); 

PUT("     The  main  bus  voltage  is  regulated  to  +  or  -  "); 

PUT(BUS_VOLTAGE_ALLOWABLE_DEVIATION,FORE=  >  1,AFT=  >2,EXP-  >0); 

PUT("    volts"); 

NEW_LINE(1); 

PUT( "Therefore  the  lower  limit  of  the  bus  voltage  is    "); 

PUT(BUS_VOLTAGE-BUS_VOLTAGE_ALLOWABLE_DEVIATION,FORE=  >2,AFT=  >2,EXP=  >0); 

PUT("    volts"); 

NEW_LINE(1); 

PUT("The  battery  charger  voltage  drop  (Vcd)  is  "); 
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PUT(BATTERY_CHARGER_VOLTAGE_DROP,FORE  =  >2,AFT=  >2,EXP  =  >0); 

PUT("    volts"); 

NEWLINE(l); 

VOLTAGE_CHARGE_ARRAY:  =  MAXIMUM_CHARGE_VOLTAGE-(BUS_VOLTAGE-BUS_VOLTAGE_A 
LLOWABLEDEVIATION) 

+  BATTERY_CHARGER_VOLTAGE_DROP; 

new_line(2); 

SET_COL(5); 

PUT("Then  the  boost  voltage  needed  by  the  charge  array  is    "); 

PUT(VOLTAGE_CHARGE_ARRAY,  FORE-  >2,AFT  =  >2,EXP  =  >0); 

PUT("    volts");  " 

NEW_LINE(1); 

PUT_LINE("     The  charge  current  is  applied  to  each  bus  on  a  50%  duty"); 

PUT_LINE( "cycle.    The  charge  rates  are  CELL  ampere  hours/ 15  for  autumnal  "); 

PUT_LINE( "equinox  and  CELL  ampere  hours/45  for  summer  solstice.    "); 

new_line(3); 

STOP; 

new_line(l); 

PUT_LINE("The  currents  are:"); 

NEWLINE(l); 

EQUINOXCURRENT:  =  CELL_AH/EQUINOX_CHARGE_RATE; 

PUT("Equinox  current  is  "); 

SET_COL(64); 

PUT(EQUINOX_CURRENT,FORE=  >2,AFT=  >2,EXP  =  >0); 

PUT("    amps"); 

NEW_LINE(2); 

SOLSTICECURRENT:  =  CELLAH/SOLSTICECHARGERATE; 

PUT("Solstice  current  is  "); 

SET_COL(64); 

PUT(SOLSTICE_CURRENT,FORE=  >2,AFT=  >2,EXP=  >0); 

PUT("    amps"); 

NEW_LINE(2); 

PUT_LINE(" Charging  or  discharging  at  high  rate  is  based  on  returning"); 

PUT_LINE("the  energy  depleted  during  eclipse  to  each  battery."); 

NEWLINE(l); 

POWER_EQUINOX_CHARGE:=MAXIMUM_CHARGE_VOLTAGE*EQUINOX_CURRENT; 

PUT( "Power  required  for  equinox  charge  at  high  rate  is  "); 

SET_COL(64); 

PUT(POWER_EQUINOX_CHARGE,FORE=  >3,AFT=  >2,EXP=  >0); 

PUT("    watts"); 

NEW_LINE(2); 

POWERSOLSTICECH  ARGE:  =  M  AXIMUM_CHARGE_VOLTAGE*SOLSTICE_CURRENT; 

PUT("Power  required  for  solstice  charge  at  high  rate  is  "); 

SET_COL(64); 

PUT(POWER_SOLSTICE_CHARGE,FORE=  >3,AFT=  >2,EXP=  >0); 

PUT("    watts"); 
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NEW_LINE(2); 

RECHARGETIME:  =  ((BATTERY_LOAD/NUMBER_OF_BUSES)*ECLIPSE_TIME) 

/(POWEREQUINOXCHARGE  *  CHARGEDISCHARGEEFFICIENCYBATTERY); 

PUT("  Recharge  time  is  "); 

SET_COL(64); 

PUT(RECHARGE_TIME,FORE=  >3,AFT  =  >2,EXP=  >0); 

PUT("    hours"); 

NEW_LINE(2); 

stop; 

CREATE(OUTF,NAME=  >  "CELPARAM.DAT"); 

PUT  LINE(OUTF  "************************************************************************* "y 

SET~COL(OUTF,20); 

PUT_LINE(OUTF, "ELECTRICAL  POWER  SUBSYSTEM  PARAMETERS"); 

PUT  LINE(OUTF  "*********************************************************************** 

NEW_LINE(OUTF,2); 


SET_COL(OUTF,15); 

PUT(OUTF,  "PARAMETER"); 

SET_COL(OUTF,46); 

PUT(OUTF,  "SYMBOL"); 

SET_COL(OUTF,61); 

PUT(OUTF,  "VALUE"); 

SET_COL(OUTF,68); 

PUT(OUTF,  "UNITS"); 

NEW_LINE(OUTF,2); 

PUT  LINE(OUTF  "************************************************************************ 

PUT(  OUTF,"Payload  Power  Requirements"); 

SET_COL(OUTF,58); 

PUT(  OUTF,PAYLOAD_POWER,  FORE  =  >  4,  AFT  =  >  2,  EXP  =  >  0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "watts"); 

NEW  LINE(OUTF,l); 


PUT(  OUTF, "Housekeeping  Power  "); 

SET_COL(OUTF,46); 

PUT(OUTF,"Phk"); 

SET_COL(OUTF,58); 

PUT(  OUTF,HOUSEKEEPING_POWER,  FORE  =  >  4,  AFT  =  >  2,  EXP  =  >  0); 

SET_COL(OUTF,69); 

PUT(  OUTF,  "watts"); 

NEW_LINE(OUTF,l); 
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PUT(  OUTF,"Load  including  load  contingency"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Ptot"); 

SET_COL(OUTF,58); 

PUT(OUTF,BATTERY_LOAD,  FORE  -  >  4,  AFT  =>  2,  EXP  =  >  0); 

SET_COL(OUTF,69);  " 

PUT(OUTF,  "watts"); 

NEW_LINE(OUTF,l); 

PUT(OUTF, "Solar  Array  Load"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Psal"); 

SET_COL(OUTF,58); 

PUT(OUTF,SOLAR_ARRAY_LOAD,  FORE  -  >  4,  AFT  -  >  2,  EXP  =  >  0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "watts"); 

NEW_LINE(OUTF,l); 

PUT(OUTF, "Spacecraft  Life"); 

SET_COL(OUTF,58); 

PUT(OUTF,SPACECRAFT_LIFE,FORE=  >4,AFT=  >2,EXP  =  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "years"); 

NEW_LINE(OUTF,l); 

PUT(OUTF,  "Depth  of  Discharge"); 

SET_COL(OUTF,46); 

PUT(OUTF,"DOD"); 

SET_COL(OUTF,58); 

PUT(OUTF,DEPTH_OF_DISCHARGE,FORE  =  >4,AFT=  >2,EXP  =  >0); 

SETCOLXOUTF^); 

PUT(OUTF,"%"); 

NEWLINE(OUTF.l); 

PUT(OUTF,"EOL  Battery  Discharge  Voltage"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Vd"); 

set_col(OUTF,58); 

PUT(OUTF)EOL_BATTERY_DISCHARGE_VOLTAGE,FORE  =  >4,AFT=  >2,EXP  =  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "volts"); 

NEW_LINE(OUTF,l); 

PUT(OUTF, "Bypass  Diode  Voltage  Drop"); 

SETCOLCOUTF^); 

PUT(OUTF,"Vdd"); 

SET_COL(OUTF,58); 

PUT(OUTF,BYPASS_DIODE_VOLTAGE_DROP,FORE  =  >4,AFT  =  >2,EXP  =  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "volts"); 

NEW_LINE(OUTF,l); 
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PUT(OUTF, "Design  Satellite  Bus  Voltage"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Vbus"); 

SET_COL(OUTF,58); 

PUT(OUTF,BUS_VOLTAGE,FORE=  >4,AFT=  >2,EXP  =  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "volts"); 

NEW_LINE(OUTF,l); 

PUT(OUTF,"Bus  Voltage  Allowable  Deviation"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Vbdev"); 

SET_COL(OUTF,58); 

PUT(OUTF,BUS_VOLTAGE_ALLOWABLE_DEVIATION,FORE-  >4,AFT  =  >2,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "volts"); 

NEW_LINE(OUTF,l); 

PUT(OUTF,  "Minimum  Bus  Voltage  in  Sunlight"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Vbmin"); 

SET_COL(OUTF,58); 

PUT(OUTF,BUS_VOLTAGE-BUS_VOLTAGE_ALLOWABLE_DEVIATION,FORE=  >4,AFT=  >2,EXP=  >0); 
SET_COL(OUTF,69); 
PUT(OUTF,  "volts"); 
NEW_LINE(OUTF,l); 


PUT(OUTF, "Eclipse  Time  (Geosynchronous  Orbits"); 

SET_COL(OUTF,46); 

PUT(OUTF,"t"); 

SET_COL(OUTF,58); 

PUT(OUTF,ECLIPSE_TIME,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "hours"); 

NEW_LINE(OUTF,l); 

PUT(OUTF,  "Maximum  Battery  Charge  Voltage"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Vbc"); 

SET_COL(OUTF,58); 

PUT(0UTF,MAX1MUM_CHARGE_V0LTAGE,F0RE=  >4,AFT=  >2,EXP-  >0); 

SET_COL(OUTF)69); 

PUT(OUTF,  "volts"); 

NEW_LINE(0UTF,1); 

PUT(OUTF, "Number  of  Satellite  Buses"); 

SET_COL(OUTF,46); 

PUT(OUTF,  "Buses"); 
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SET_COL(OUTF,58); 
PUT(OUTF,J,  WIDTH  =  >4); 
NEW_LINE(OUTF,l); 


PUT(OUTF,"Bus  Power"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Vbus"); 

SET_COL(OUTF,58); 

PUT(OUTF,BUS_POWER,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "watts"); 

NEW  LINE(OUTF.l); 


PUT(OUTF,  "Number  of  Series  Connected  Diodes"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Ndiode"); 

SET_COL(OUTF,58); 

PUT(OUTF,NUMBER_SERIES_CONNECTED_DIODES,FORE  =  >4,AFT  =  >2,EXP  =  >0); 

NEW_LINE(OUTF,l); 

PUT(OUTF, "Series  Connected  Diode  Voltage  Drop"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Vdiode"); 

SET_COL(OUTF,58); 

PUT(OUTF,SERIES_CONNECTED_DIODE_VOLTAGE_DROP,FORE=  >4,AFT  =  >2,EXP  =  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "volts"); 

NEW_LINE(OUTF,l); 

PUT(OUTF, "Battery  Charger  Voltage  Drop"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Vcd"); 

SET_COL(OUTF,58); 

PUT(OUTF,BATTERY_CHARGER_VOLTAGE_DROP,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "volts"); 

NEW_LINE(OUTF,l); 

PUT(OUTF, "Equinox  Current"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Ieq"); 

SET_COL(OUTF,58); 

PUT(OUTF,EQUINOX_CURRENT,FORE  =  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTF,69);  " 

PUT(OUTF,"amps"); 

NEW_LINE(OUTF,l); 

PUT(OUTF,  "Solstice  Current"); 
SET_COL(OUTF,46); 
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PUT(OUTF,"Iss"); 

SET_COL(OUTF,58); 

PUT(OUTF,SOLSTICE_CURRENT,FORE  =  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,"amps"); 

NEW_LINE(OUTF,l); 

PUT(OUTF, "Battery  Charge  Discharge  Efficiency"); 

SET_COL(OUTF,46); 

SET_COL(OUTF,58); 

PUT(OUTF,CHARGE_DISCHARGE_EFFICIENCY_BATTERY,FORE  =  >4,AFT=  >2,EXP  =  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,"%"); 

NEW_LINE(0UTF,1); 

PUT(OUTF, "Number  of  Satellite  Buses"); 
SET_COL(OUTF,58); 
PUT(OUTF,J,WIDTH=  >4); 
NEW_LINE(OUTF,l); 

PUT(OUTF, "Number  of  Battery  Cells  in  Series"); 

SET_COL(OUTF,46); 

PUT(OUTF,"N"); 

SET_COL(OUTF,58); 

PUT(OUTF,SERIES_CELLS_FOR_MIN_DIS_VOLT,FORE=  >4,AFT=  >2,EXP=  >0); 

NEW_LINE(OUTF,l); 

PUT(OUTF, "Minimum  Discharge  Bus  Voltage"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Vdb"); 

SET_COL(OUTF,58); 

PUT(OUTF,MINIMUM_DISCHARGE_BUS_VOLTAGE,FORE=  >4,AFT=  >2,EXP-  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "volts"); 

NEW_LINE(OUTF,l); 

PUT(OUTF, "Required  Cell  Capacity"); 

SET_COL(OUTF,46); 

PUT(OUTF,"C"); 

SET_COL(OUTF,58); 

PUT(OUTF,CELL_AH,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,"AH"); 

NEW_LINE(OUTF,l); 


PUT(OUTF, "Boost  Voltage  Req.  by  Charge  Array"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Vca"); 

SET_COL(OUTF,58); 

PUT(OUTF,VOLTAGE_CHARGE_ ARRAY,  FORE=  >4,AFT=  >2,EXP=  >0); 
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SET_COL(OUTF,69); 
PUT(OUTF,  "volts"); 
NEW_LINE(OUTF,l); 

PUT(OUTF, "Maximum  Battery  Charge  Voltage"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Vbc"); 

SET_COL(OUTF,58); 

PUT(OUTF,BUS_VOLTAGE  +  MAXIMUM_BATTERY_CHARGE_VOLTAGE,FORE=>4,AFT=>2,EXP- 
>0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "volts"); 

NEW_LINE(OUTF,l); 

PUT(OUTF, "Power  Req.  Equinox  Charge  @  High  Rate"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Pchrgeq"); 

SET_COL(OUTF,58); 

PUT(OUTF,POWER_EQUINOX_CHARGE,FORE=  >4,AFT=  >2,EXP  =  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "watts"); 

NEW_LINE(OUTF,l); 

PUT(OUTF, "Power  Req.  Solstice  Charge  @  High  Rate"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Pchrgss"); 

SET_COL(OUTF,58); 

PUT(OUTF,POWER_SOLSTICE_CHARGE,FORE=  >4,AFT-  >2,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "watts"); 

NEW_LINE(OUTF,l); 

PUT(OUTF,  "Recharge  Time"); 

SET_COL(OUTF,46); 

PUT(OUTF,"Tcharge-e"); 

SET_COL(OUTF,58); 

PUT(OUTF,RECHARGE_TIME,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTF,69); 

PUT(OUTF,  "hours"); 

NEW_LINE(OUTF,l); 

PUT  LINE(OUTF  "*************************************************************************"  \. 


CLOSE(OUTF); 
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MATERIAL, 


VIDEO.  CLE  ARSCREEN; 

PUT_LINE( "SOLAR  ARRAY  DESIGN"); 

PUT_LINE("     The  total  load  on  the  solar  array  will  be  the  summation  of"); 

PUT_LINE("the  equipment   load  and  the  power   required  for   charging  the"); 

PUT_LINE(  "batteries.    Generally,  10%  solar   array  design  margin  is  used"); 

PUT_LINE("to   take   into   account   the   uncertainty   in   the   radiation  "); 

PUT_LINE( "degradation  and  other  design  factors  of  the  solar  array."); 

—  should  I  use  payload  power  or  bus  power 


DESIGN_LOAD_EQUINOX:=DESIGN_MARGIN*(BATTERY_LOAD  +  POWER_EQUINOX_CHARGE); 

NEW_LINE(2); 

PUT("The  solar  array  design  load  at  EQUINOX  is    "); 

SET_COL(64); 

PUT(DESIGN_LOAD_EQUINOX,FORE=  >5,AFT=  >2,EXP=  >0);PUT("  watts"); 

DESIGN_LOAD_SOLSTICE:=DESIGN_MARGIN*(BATTERY_LOAD  +  POWER_SOLSTICE_CHARGE); 

NEW_LINE(2); 

PUT("The  solar  array  design  load  at  SOLSTICE  is    "); 

SET_COL(64); 

PUT(DESIGN_LOAD_SOLSTICE,FORE=  >5,AFT=  >2,EXP=  >0);PUT("  watts"); 

NEW_LINE(2); 

PUT_LINE("     The  design  load  for  either  configuration  will  be  divided  "); 

PUT_LINE("by  the  total  number  of  buses  for  the  main  load."); 

NEW_LINE(2); 

STOP; 
NEWLINE(l); 

CELL_CURRENT_EOL_SOLSTICE:  =  ((CURRENTM  AXPOWER 

+TEMPCOEFEOLCURRENT 

*(SOLSTICE_SOLAR_ARRAY_TEMP-SOLAR_CELL_TEST_TEMP)) 

*ASSEMBLY_LOSS_CURRENT*ENVIRONMENTAL_DEGRADATION_CURRENT 

♦SOLSTICESIFCURRENT) ; 
PUT_LINE(" Solar  Cell  Current  at  Maximum  Power  Point  "); 
PUT("EOL  Summer  Solstice  I-V  curve  is    "); 
SET_COL(60); 

PUT(CELL_CURRENT_EOL_SOLSTICE,  FORE=  >3,AFT=  >4,EXP=  >0);PUT("   Amps"); 
NEW_LINE(2); 

CELLCURRENTEOLEQUINOX:  =  ((CURRENTMAXPOWER 

+  TEMPCOEFEOLCURRENT 

*(EQUINOX_SOLAR_ARRAY_TEMP-SOLAR_CELL_TEST_TEMP)) 

♦ASSEMBLYLOSSCURRENT*  ENVIRONMENT  AL_DEGRADATION_CURRENT 

♦EQUINOXSIFCURRENT); 
PUT_LINE(" Solar  Cell  Current  at  Maximum  Power  Point  "); 
PUT("EOL  Autumnal  Equinox  I-V  curve  is    "); 
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SET_COL(60); 

PUT(CELL_CURRENT_EOL_EQUINOX,  FORE=  >3,AFT=  >4,EXP=  >0);PUT("   Amps"); 

NEW_LINE(2); 

REQUIRED_CURRENT_SOLSTICE_PER_BUS:=DESIGN_LOAD_SOLSTICE/NUMBER_OF_BUSES 

/BUSVOLTAGE; 
PUT("Required  Current  Solstice  Per  Bus"); 
SET_COL(60); 

PUT(REQUIRED_CURRENT_SOLSTICE_PER_BUS,FORE=  >3,AFT  =  >4,EXP=  >0); 
PUT("    amps"); 
NEW_LINE(2); 

REQUIRED_CURRENT_EQUINOX_PER_BUS:=DESIGN_LOAD_EQUINOX/NUMBER_OF_BUSES 

/BUSVOLTAGE; 
PUT_LINE("  Required  Current  Equinox  Per  Bus"); 
SET_COL(60); 

PUT(REQUIRED_CURRENT_EQUINOX_PER_BUS,FORE  =  >3,AFT=  >4,EXP  =  >0); 
PUT("    amps"); 
NEW_LINE(2); 

PUT("BUS  VOLTAGE"); 

SET_COL(60); 

PUT(BUS_VOLTAGE,FORE=  >3,AFT=  >4,EXP=  >0); 

NEW_LINE(4); 

STOP; 

NEWLINE(l); 

NUMBER_CELLS_IN_PARALLEL:  = 

REQUIREDCURRENTSOLSTICEPERBUS/CELLCURRENTEOLSOLSTICE; 

PUT("#  cells  in  parallel  for  minimum  current  each  bus  is"); 

SET_COL(65); 

PUT(NUMBER_CELLS_IN_PARALLEL,FORE  =  >4,AFT=  >2,EXP  =  >0); 

NEWLINE(l); 

NJNTEGER:  =INTEGER(NUMBER_CELLS_IN_PARALLEL); 
PUT("#  cells  in  parallel  for  minimum  current  INTEGER"); 
SET_COL(65); 

PUT(FLOAT(N_INTEGER),FORE  =  >4,AFT=  >2,EXP  =  >0); 
NEW_LINE(1); 

if  FLOAT(NJNTEGER)  <  NUMBER_CELLS_IN_PARALLEL  then 

NJNTEGER:  =  NJNTEGER  +  1 ; 
end  if; 

NUMBER_CELLS_IN_PARALLEL:=FLOAT(N_INTEGER); 

PUT("#  cells  in  parallel  for  minimum  current  ROUND  UP  "); 

SET_COL(65); 

PUT(NUMBER_CELLS_IN_PARALLEL,FORE=  >4,AFT=  >2,EXP  =  >0); 

new_line(2); 

-TEMPOFCELLCHARACS 

CELL_VOLTAGE_EOL_SOLSTICE:=(VOLTAGE_MAX_POWER-PANEL_WIRING_LOSS_PER_CELL 
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+  TEMPCOEFEOLVOLTAGE 

*(SOLSTICE_SOLAR_ARRAY_TEMP-SOLAR_CELL_TEST_TEMP)) 

♦ENVIRONMENT  ALDEGRADATIONVOLTAGE; 
PUT("Solar  Cell  Voltage  at  EOL  Solstice  is  "); 
SET_COL(65); 

PUT(CELL_VOLTAGE_EOL_SOLSTICE,FORE=  >  1,AFT=  >4,EXP=  >0);PUT("   volts"); 
NEW_LINE(2); 

CELL_VOLTAGE_EOL_EQUINOX:=(VOLTAGE_MAX_POWER-PANEL_WIRING_LOSS_PER_CELL 

+TEMPCOEFEOLVOLTAGE 

♦(EQUINOXSOLARARRAYTEMP-SOLARCELLTESTTEMP)) 

♦ENVIRONMENT  ALDEGRADATIONVOLTAGE; 
PUT("Solar  Cell  Voltage  at  EOL  Equinox  is  "); 
SET_COL(65); 

PUT(CELL_VOLTAGE_EOL_EQUINOX,FORE=  >  1,AFT=  >4,EXP=  >0);PUT("   volts"); 
NEW_LINE(2); 


NUMBER_CELLS_IN_SERIES:  =  (BUS_VOLTAGE  +  BLOCKINGDIODEVOLTAGEDROP 

+  ARRAY_WIRING_HARNESS_AND_SLIP_RING_VOLTAGE_DROP) 
/CELLVOLTAGEEOLSOLSTICE; 
PUT("#  series  cells  for  minimum  discharge  voltage"); 
SET_COL(65); 

PUT(NUMBER_CELLS_IN_SERIES,FORE-  >4,AFT=  >2,EXP=  >0); 

new_line(l); 

N_INTEGER:=INTEGER(NUMBER_CELLS_IN_SERIES); 

PUT("#  series  cells  for  minimum  discharge  voltage  INTEGER"); 

SET_COL(65); 

PUT(FLOAT(N_INTEGER),FORE=  >4,AFT=  >2,EXP=  >0); 

NEWLINE(l); 

if  FLOAT(NJNTEGER)  <  NUMBERCELLSINSERIES     then 
NJNTEGER:  =  NJNTEGER  +  1 ; 

end  if; 

NUMBER_CELLS_IN_SERIES:=FLOAT(N_INTEGER); 

—  minimum  discharge  voltage 

PUT("#  series  cells  for  minimum  discharge  voltage  ROUND  UP"); 

SET_COL(65); 

PUT(NUMBER_CELLS_IN_SERIES,FORE=  >4,AFT-  >2,EXP=  >0); 

new_line(4); 

STOP; 

—  Cell  current  at  maximum  power  point  of  EOL  autumnal  equinox 

NEWLINE(l); 

CELLCURRENTEOLEQUINOX:  =  (CURRENTMAXPOWER  +  TEMPCOEFEOLCURRENT 

♦(EQUINOXSOLARARRAYTEMP-SOLARCELLTESTTEMP)) 
*ASSEMBLY_LOSS_CURRENT*    ENVIRONMENT ALDEGRADATIONCURRENT 
*EQUINOX_SIF_CURRENT; 

PUT("Solar  Cell  Current  at  EOL  Autumnal  Equinox    "); 

SET_COL(60); 
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PUT(CELL_CURRENT_EOL_EQUINOX,  FORE=  >  1,AFT=  >4,EXP=  >0);PUT("   Amps"); 
NEW_LINE(2); 

CELL_VOLTAGE_EOL_EQUINOX:  =  (VOLTAGE_MAX_POWER-PANEL_WIRING_LOSS_PER_CELL 

+  TEMPCOEFEOLVOLTAGE 

*(EQUINOX_SOLAR_ARRAY_TEMP-SOLAR_CELL_TEST_TEMP)) 

*ENVIRONMENTAL_DEGRADATION_VOLTAGE; 
PUTfSolar  Cell  Voltage  at  EOL  equinox  is  "); 
SET_COL(60); 

PUT(CELL_VOLTAGE_EOL_EQUINOX,FORE=  >  1,AFT=  >4,EXP=  >0);PUT("   volts"); 
NEW_LINE(2); 


BUSCURRENT:  =  CELL_CURRENT_EOL_EQUINOX*NUMBER_CELLS_IN_PARALLEL; 

PUT("The  current  per  bus  or  wing  is  "); 

SET_COL(60); 

PUT(BUS_CURRENT,  FORE-  >3,AFT  =  >2,EXP=  >0); 

PUT("    amps"); 

NEW_LINE(2); 

BUS_VOLTAGE:  =  (CELL_VOLTAGE_EOL_EQUINOX*NUMBER_CELLS_IN_SERIES) 

-(BLOCKINGDIODEVOLTAG  EDROP 

+  ARRAY_WIRING_HARNESS_AND_SLIP_RING_VOLTAGE_DROP); 
PUT("The  voltage  per  bus  or  wing  is  "); 
SET_COL(60); 

PUT(BUS_VOLTAGE,  FORE-  > 3, AFT-  >2,EXP=  >0); 
PUT("    volts"); 
NEW_LINE(2); 

TOTAL_POWER_PER_BUS:=BUS_CURRENT*BUS_VOLTAGE; 

ARRAYTOTALPOWER:  =  TOTAL_POWER_PER_BUS*NUMBER_OF_BUSES; 

PUT("The  Total  Power  is  "); 

SET_COL(58); 

PUT(ARRAY_TOTAL_POWER,  FORE-  >5,AFT=  >2,EXP=  >0); 

PUT("    Watts"); 

NEW_LINE(4); 

STOP; 


if  DRUMSPINNER  =  FALSE  then 

POWER_MARGIN:=DESIGN_MARGIN*POWER_TOTAL; 
else 

POWER_MARGIN:=DESIGN_MARGIN*POWER_TOTAL/PI; 
end  if; 

if  ARRAYTOTALPOWER  >  =  DESIGNLOADEQUINOX  and  DRUMSPINNER  =  TRUE  then 
if  (ARRAYTOTALPOWER-DESIGNLOADEQUINOX)  >  100.0   then 
VIDEO.CLEARSCREEN; 
PUT("Total  array  power  is  "); 
PUT(ARRAY_TOTAL_POWER-DESIGN_LOAD_EQUINOX,FORE-  >4,AFT-  >2,EXP=  >0); 
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PUT("    watts  more  than  needed."); 

NEWLINE(l); 

PUT_LINE("If  substantially  greater  recommend  DESIGN  BUS  VOLTAGE  be  reduced"); 

PUT_LINE(" Recommend  re-iterate  to  optimize  design  "); 

NEWLINE(l); 

FINAL:  =  FALSE; 

GETCHARACTER(CHAR); 

if  CHAR  =  'Y'  or  CHAR  =  »y'  then 

CHAR:=N; 

VIDEO.CLEARSCREEN; 

goto   REITERATEVOLTAGE; 
else 

goto  MOVEON;    --    <  <MOVEON>  >  Exit  if  structure 
end  if; 
end  if; 

elsif  ARRAYTOTALPOWER  <  DESIGNLOADEQUINOX  then 
PUT("THE  TOTAL  ARRAY  POWER  IS  "); 

PUT(ABS(DESIGN_LOAD_EQUINOX-ARRAY_TOTAL_POWER),FORE  =  >4,AFT  =  >2,EXP  =  >0); 
PUT("    watts  less  than  needed."); 
NEW_LINE(2); 

PUT( "Recommend  increasing  DESIGN  BUS  VOLTAGE"); 
new_line(2); 

PUT_LINE("  Recommend  re-iterate  to  optimize  design  "); 
FINAL:  =  FALSE; 
SET_COL(10); 
GETCHARACTER(CHAR); 
if  CHAR  =  'Y'  or  CHAR  -  'y'  then 

CHAR:=N; 

VIDEO.  CLEARSCREEN ; 

goto   REITERATEVOLTAGE; 
else 

goto  MOVEON;    --    <<  MOVEON  >>  Exit  if  structure 
end  if; 

elsif  (ARRAYTOTALPOWER-DESIGNLOADEQUINOX)  <  100.0 
and  DRUMSPINNER  =  FALSE 
and  (ARRAY_TOTAL_POWER-DESIGN_LOAD_EQUINOX)  >  0.0  then 

VIDEO.  CLEARSCREEN; 

PUT_LINE( "Design  Bus  Voltage  and  Minimum  Discharge  Bus  Voltage"); 
PUT_LINE("are  within  optimal  design  parameters."); 
NEW_LINE(4); 
STOP; 
end  if; 

<<  MOVEON  >> 
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CHARGE  ARRAY  DESIGN 
NEW_LINE(1); 
STOP; 

PUT_LINE("                         CHARGE  ARRAY  DESIGN     "); 
PUT_LINE( " - " ) ; 

NUMBER_CELLS_IN_SERIES_CHARGE_ARRAY_SOLSTICE:  = 

VOLTAGECHARGEARRAY/CELLVOLTAGEEOLSOLSTICE; 
NEW  LINE(l); 

PUT("#  of  series  cells  for  charge  array  during  solstice,  Nc,  is  "); 
SET_COL(70); 

PUT(NUMBER_CELLSJN_SERIES_CHARGE_ARRAY_SOLSTICE,FORE=  >3,AFT  =  >2,EXP=  >0); 
NEW_LINE(1); 

NJNTEGER:  =  INTEGER(NUMBER_CELLSJN_SERIES_CHARGE_ARRAY_SOLSTICE); 
PUT("#  series  cells  charge   during  solstice,  Nc,  INTEGER  is  "); 
SET_COL(70); 

PUT(FLO AT(N  INTEGER), FORE  =  >3,AFT  =  >2,EXP  =  >0); 
NEW  LINE(l); 
if  FLOAT(NJNTEGER)  <  NUMBER_CELLS_IN_SERIES_CHARGE_ARRAY_SOLSTICE   then 

NJNTEGER:  =  NJNTEGER  +  1 ; 
end  if; 

NUMBER_CELLSJN_SERIES_CHARGE_ARRAY_SOLSTICE:=FLOAT(NJNTEGER); 
SETCOL(l); 

PUT("#  series  cells  charge   during  solstice,  Nc,  ROUND  UP  is    "); 
SET_COL(70); 

PUT(NUMBER_CELLS  JN_SERIES_CHARGE_ARRAY_SOLSTICE,FORE=  >3,AFT  =  >2,EXP=  >0); 
new_line(2); 

—  Parallel  cells  charge  array  solstice 


NUMBER_CELLS_IN_PARALLEL_CHARGE_ARRAY_SOLSTICE:  = 

CELL_AH/SOLSTICE_CHARGE_RATE/CELL_CURRENT_EOL_SOLSTICE; 

SETCOL(l); 

PUT("#  parallel  cells  charge  array  during  solstice,  Ncs,  is  "); 

SET_COL(70); 

PUT(NUMBER_CELLS_IN_PARALLEL_CHARGE_ARRAY_SOLSTICE,FORE-  >3,AFT=  >2,EXP=  >0); 

NEWLINE(l); 

NJNTEGER: -INTEGER(NUMBER_CELLS_IN_PARALLEL_CHARGE_ARRAY_SOLSTICE); 

PUT("#  parallel  cells  charge  array  during  solstice,  Ncs,  INTEGER  is  "); 

SET_COL(70); 

PUT(FLOAT(N_INTEGER),FORE=  >3,AFT=  >2,EXP=  >0); 

NEW_LINE(1); 

if  FLOAT(NJNTEGER)  <  NUMBERCELLSJNPARALLELCHARGEARRAYSOLSTICE  then 

NJNTEGER:  =  NJNTEGER  + 1 ; 
end  if; 
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NUMBERCELLS  INPARALLELCHARGEARRAYSOLSTICE:  =  FLOAT(N  JNTEGER); 

PUT("#  parallel  cells  charging  array  during  solstice,  Ncs,  ROUND  UP  is"); 

SET_COL(70); 

PUT(NUMBER_CELLSJN_PARALLEL_CHARGE_ARRAY_SOLSTICE,FORE=  >3,AFT  =  >2,EXP=  >0); 

NEW_LINE(2); 

~  Parallel  cells  charge  array  equinox 

NUMBER_CELLSJN_PARALLEL_CHARGE_ARRAY_EQUINOX:  = 

CELL  AH/EQUINOX  CHARGE  RATE/CELL  CURRENT  EOL  EQUINOX; 


PUT("#  parallel  cells  charge  array  during  equinox,  Nee,  is    "); 

SET_COL(70); 

PUT(NUMBER_CELLS_IN_PARALLEL_CHARGE_ARRAY_EQUINOX,FORE=  >3,AFT=  >2,EXP=  >0); 

NEW_LINE(1); 

NJNTEGER:  =  INTEGER(NUMBER_CELLS  JN_PARALLEL_CHARGE_ARRAY_EQUINOX); 

PUT("#  parallel  cells  charge  array  during  equinox,  Nee,  INTEGER  is    "); 

SET_COL(70); 

PUT(FLO  AT(N  JNTEGER),  FORE  =>  3,  AFT  =  >2,EXP=  >0); 

NEW_LINE(1); 

if  FLOAT(N  INTEGER)  <  NUMBERCELLS  INPARALLELCHARGEARRAYEQUINOX      then 

NJNTEGER:  =  NJNTEGER  + 1 ; 
end  if; 

NUMBER_CELLSJN_PARALLEL_CHARGE_ARRAY_EQUINOX:=FLOAT(N  INTEGER); 

PUT("#  parallel  cells  charge  array  during  equinox,  Nee,  ROUND  UP  is    "); 

SET_COL(70); 

PUT(NUMBER_CELLSJN_PARALLEL_CHARGE_ARRAY_EQUINOX,FORE=  >3,AFT=  >2,EXP=  >0); 

NEW_LINE(4); 

CREATE(OUTSC,NAME  =  >  "SOLCELL.DAT"); 

SET_LINE(OUTSC,l); 

PUT  LINE(OUTSC  "*************************************************************************")• 

SET~COL(OUTSC,20); 

PUT(OUTSC,  "SOLAR  CELL  CHARACTERISTICS"); 

newJine(OUTSC,l); 

PUT  LLNEfOUTSC  "*************************************************************************")• 

NEW_LINE(OUTSC,l); 

SET_COL(OUTSC,15); 

PUT(OUTSC,  "CHARACTERISTIC"); 

SET_COL(OUTSC,47); 

PUT(OUTSC,  "VALUE"); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "UNITS"); 

NEW_LINE(OUTSC,l); 

PUT  LINE(OUTSC  "*************************************************************************"); 
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PUT(OUTSC, "TEMPERATURE  BASIS  FOR  PERFORMANCE"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,SOLAR_CELL_TEST_TEMP  ,FORE=  >4,AFT=  >2,EXP  =  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"deg  celcius"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "TEMPERATURE  SOLAR  ARRAY  SOLSTICE"); 


SET_COL(OUTSC,44); 

PUT(OUTSC,SOLAR_ARRAY_TEMP_SOLSTICE,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"deg  celcius  "); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "SOLAR  ARRAY  TEMPERATURE  EQUINOX"); 


SET_COL(OUTSC,44); 

PUT(OUTSC,SOLAR_ARRAY_TEMP_EQUINOX,FORE=  >4,AFT  =  >2,EXP  =  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"deg  celcius  "); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "TEMPERATURE  COEFFICIENT  EOL  CURRENT  "); 

SET_COL(OUTSC,44); 

PUT(OUTSC,TEMP_COEF_EOL_CURRENT,FORE-  >  1,AFT=  >5,EXP=  >G); 

SET_COL(OUTSC,59); 

PUT(OUTSC , " ma/deg  celcius ") ; 

NEW_LINE(OUTSC,l); 

PUT(OUTSC,  "TEMPERATURE  COEFFICIENT  EOL  VOLTAGE  "); 

SET_COL(OUTSC,43); 

PUT(OUTSC,TEMP_COEF_EOL_VOLTAGE,FORE=  >2,AFT=  >5,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"mv/deg  celcius"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC,  "POWER  PER  SOLAR  CELL"); 


SET_COL(OUTSC,44); 
PUT(OUTSC,CELL_CURRENT_EOL_EQUINOX*CELL_VOLTAGE_EOL_EQUINOX 

,FORE=>3,AFT=>3,EXP=>0); 
SET_COL(OUTSC,59); 
PUT(OUTSC,  "watts"); 
NEW_LINE(OUTSC,l); 
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PUT(OUTSC,"CELL  CURRENT  @  MAX  POWER  POINT"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CELL_CURRENT_EOL_EQUINOX  ,FORE=  >3,AFT  =  >3,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"amps"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC,"CELL  VOLTAGE  @  MAX  POWER  POINT  "); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CELL_VOLTAGE_EOL_EQUINOX  ,FORE  =  >3,AFT=  >3,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "volts"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "CURRENT  -  SHORT  CIRCUIT"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CURRENT_SHORT_CIRCUIT  ,FORE=  >3,AFT=  >3,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"amps"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC," VOLTAGE  -  OPEN  CIRCUIT"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,VOLTAGE_OPEN_CIRCUIT,FORE=  >3,AFT=  >3,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "volts"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC,"CELL  WIDTH"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CELL_WIDTH,FORE=  >3,AFT=  >3,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"cm  "); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC,"CELL  LENGTH"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CELL_LENGTH,FORE=  >3,AFT=  >3,EXP-  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"cm  "); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC,"CELL  THICKNESS"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CELL_THICKNESS,FORE=  >3,AFT=  >3,EXP=  >0); 

SET_COL(OUTSC,58); 

PUT(OUTSC,"cm  "); 

NEW_LINE(OUTSC,l); 

--  SOLAR  ARRAY  DATA 

SET_LINE(OUTSC,l); 
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PUT  LINE(OUTSC  "*************************************************************************")• 

SET~COL(OUTSC,20); 

PUT(OUTSC,  "SOLAR  ARRAY  SYSTEM  CHARACTERISTICS"); 

newline(OUTSCl); 

PUT  LINE(OUTSC  ******************************************************************** ******")■ 

NEW_LINE(OUTSC,l); 

SET_COL(OUTSC,15); 

PUT(OUTSC,  "CHARACTERISTIC"); 

SET_COL(OUTSC,47); 

PUT(OUTSC,  "VALUE"); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "UNITS"); 

NEW_LINE(OUTSC,l); 

PUT  LINE(OUTSC  "*************************************************************************")■ 


PUT(OUTSC, "DESIGN  MARGIN"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,DESIGN_MARGIN,FORE  =  >4,AFT  =  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"%"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "DESIGN  LOAD  EQUINOX"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,DESIGN_LOAD_EQUINOX,FORE  =  >4,AFT  =  >2,EXP  =  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "watts"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "DESIGN  LOAD  SOLSTICE"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,DESIGN_LOAD_SOLSTICE,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "watts"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC,"CELL  CURRENT  EOL  SOLSTICE"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CELL_CURRENT_EOL_SOLSTICE,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"amps"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC,  "REQUIRED  CURRENT  SOLSTICE  PER  BUS"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,REQUIRED_CURRENT_SOLSTICE_PER_BUS)FORE=  >4,AFT=  >2,EXP  =  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"amps"); 
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NEW_LINE(0UTSC,1); 

PUT(OUTSC, "REQUIRED  CURRENT  EQUINOX  PER  BUS"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,REQUIRED_CURRENT_EQUINOX_PER_BUS,FORE  =  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"amps"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "NUMBER  CELLS  IN  PARALLEL  (FLAT  PANEL)"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,NUMBER_CELLS_IN_PARALLEL,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "solar  cells"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "NUMBER  CELLS  IN  PARALLEL  (CYLINDER)"); 
NUMBER  CELLSINPARALLEL:  =  NUMBER_CELLS_IN_PARALLEL*PI; 


NINTEGER:  =  INTEGER(NUMBER_CELLS_IN_PARALLEL); 


if  FLOAT(NINTEGER)  <  NUMBER_CELLS_IN_PARALLEL  then 

NJNTEGER:  =  NINTEGER  + 1 ; 
end  if; 

NUMBER_CELLS_IN_PARALLEL:=FLOAT(N_INTEGER); 

SET_COL(OUTSC,44); 

PUT(OUTSC,NUMBER_CELLS_IN_PARALLEL,FORE-  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "solar  cells"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC,"CELL  VOLTAGE  EOL  SOLSTICE"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CELL_VOLTAGE_EOL_SOLSTICE,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "volts"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "NUMBER  CELLS  IN  SERIES  -  PER  BUS"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,NUMBER_CELLS_IN_SERIES,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC, "solar  cells"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "TOTAL  NUMBER  OF  CELLS"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,NUMBER_CELLS_IN_SERIES*NUMBER_CELLS_IN_PARALLEL 

,FORE=  >4,AFT=  >2,EXP=  >0); 
SET_COL(OUTSC,59); 
PUT(OUTSC, "solar  cells"); 
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NEW_LINE(0UTSC,1); 

PUT(OUTSC,"CELL  CURRENT  EOL  EQUINOX"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CELL_CURRENT_EOL_EQUINOX,FORE  =  >4,AFT=  >2,EXP  =  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"amps"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "REQUIRED  BUS  CURRENT  EOL  EQUINOX"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,BUS_CURRENT,FORE  =  >4,AFT  =  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,"amps"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC,"CELL  VOLTAGE  EOL  EQUINOX"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CELL_VOLTAGE_EOL_EQUINOX,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "volts"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "REQUIRED  BUS  VOLTAGE  EOL  EQUINOX"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,BUS_VOLTAGE,FORE=  >4,AFT-  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "volts"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "TOTAL  POWER  PER  BUS"); 

TOTAL_POWER_PER_BUS:=BUS_CURRENT*BUS_VOLTAGE; 

SET_COL(OUTSC,44); 

PUT(OUTSC,TOTAL_POWER_PER_BUS,FORE=  >4,AFT=  >2,EXP-  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "watts"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "TOTAL  POWER  AVAILABLE  FROM  ARRAY"); 

POWER_TOTAL:=TOTAL_POWER_PER_BUS*NUMBER_OF_BUSES; 

SET_COL(OUTSC,44); 

PUT(OUTSC,POWER_TOTAL,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "watts"); 

NEW_LINE(OUTSC,l); 

PUT(OUTSC, "POWER  MARGIN  3-AXIS  STABILIZED"); 

POWER_MARGIN:=POWER_TOTAL*(DESIGN_MARGIN-1.0); 

SET_COL(OUTSC,44); 

PUT(OUTSC,POWER_MARGIN,FORE=  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "watts"); 
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NEW_LINE(OUTSC,l); 


PUT(OUTSC, "POWER  MARGIN  DUAL-SPIN"); 

POWER_MARGIN:  =  POWER_TOTAL*(DESIGN_MARGIN-1.0)/PI; 

SET_COL(OUTSC,44); 

PUT(OUTSC,POWER_MARGIN,FORE  =  >4,AFT=  >2,EXP=  >0); 

SET_COL(OUTSC,59); 

PUT(OUTSC,  "watts"); 

NEW_LINE(OUTSC,l); 


CLOSE  (OUTSC); 
end  battery; 
begin   —  MAIN 
PRINT  HEADER; 


DUAL  SPIN 


OPERATING  DATA 


BATTERY 


(DRUMSPINNER); 

(BATTERYLOAD, 
DRUMSPINNER, 

MINIMUMDISCHARGEBUSVOLTAGE, 
BUSJVOLTAGE, 

BYPASSDIODEVOLTAGEDROP, 
EOLBATTERYDISCHARGEVOLTAGE, 
BUSPOWER, 
PAYLOADPOWER, 
DEPTHOFDISCHARGE, 
numberofbuses , 
SPACECRAFTLIFE, 
ECLIPSETIME); 

(BATTERYLOAD, 
DRUM_SPINNER, 

MINIMUMDISCHARGEBUSVOLTAGE, 
BUSVOLTAGE, 

BYPASSDIODEVOLTAGEDROP, 
EOLBATTERYDISCHARGEVOLTAGE, 
BUSPOWER, 
PAYLOADPOWER, 
CELLAH, 

DEPTHOFDISCHARGE, 
ECLIPSETIME, 
VOLTAGECHARGEARRAY, 
NUMBER  OF  BUSES, 
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MAXIMUMBATTERYCHARGEVOLTAGE, 

SERIESCONNECTEDDIODEVOLTAGEDROP, 

NUMBERSERIESCONNECTEDDIODES, 

BATTERYCHARGERVOLTAGEDROP, 

CHARGEDISCHARGEEFFICIENCYBATTERY, 

spacecraft_life, 

POWEREQUINOXCHARGE , 

POWERSOLSTICECHARGE); 


SET_COL(10);PUT("TO  CONTINUE  ENTER  ANY  INTEGER");  GETINTEGER(I); 

VIDEO.  CLEARSCREEN; 

NEW_LINE(2); 

PUT_LINE("DATA  FILES  FOR  THIS  DESIGN  RUN  ARE  LOCATED  IN  THE  FOLLOWING  FILES:"); 

NEWLINE(l); 

PUT_LINE("  CELPARAM.DAT"); 

PUT_LINE("  SOLCELL.DAT  "); 

NEWLINE(l); 

PUT_LINE("TO  KEEP  DATA  FROM  BEING  ERASED  ON  NEXT  RUN"); 

PUT_LINE("USE  DOS  COMMAND  REN  (RENAME)  "); 

NEWLINE(l); 

PUT_LINE("EXAMPLE  -  REN  SOLARCEL.DAT     SOLARCEL.XYZ"); 

end  SOLARPOWER; 
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C.  PASSIVE  THERMAL  CONTROL 

--  Title  :  Thermal  Characteristics 

~  Author  :  David  Lashbrook 

--  Date  :  15  February  1992 

--  Revised  :  12  May  1992 

--  Compiler  :  OPENADA  EXT 

~  Description      :  This  procedure  determines  the  delta  velocity  for  insertion 

into  geosynchronous  orbit, 
with  TEXTIO,  GENERICELEMENTARYFUNCTIONS,  GETDATA.VIDEO; 
use   TEXTIO,  GETDATA  ; 
procedure  THERMAL  is         --  THERMAL_CONTROL 

package  FLOATJNOUT  is  new  FLOATIO(FLOAT); 

use       FLOATJNOUT; 

package  INTEGERINOUT  is  new  INTEGER_IO(INTEGER); 

use       INTEGERINOUT; 

package  BOOLEANINOUT  is  new  ENUMERATIONJO(BOOLEAN); 

use       BOOLEANINOUT; 

package  GEFJNOUT  is  new  GENERIC_ELEMENTARY_FUNCTIONS(FLOAT); 

use       GEF  INOUT; 


:  FLOAT:  =0.65; 
:  FLOAT:  =  1.20;  -hours 
:  FLOAT:  =72.0;  --  minutes 
constant  FLOAT  :=  3.14159265359; 


DEPTHOFDISCHARGE 

ECLIPSETIME 

TIMEECLIPSE 

PI 

SPACECRAFTLIFE, 

SPACECRAFT_MASS_BEFORE_APOGEE_BURN, 

PAYLOADPOWER, 

BATTERYLOAD, 

NUMBEROFBUSES, 

SOLAR_ ARRAY  LOAD  :  FLOAT; 


LIFEFACTOR  :  FLOAT 

POWERMARGIN  :  FLOAT      : 

RADIATORSPECIFICHEAT  :  FLOAT 

INTELSAT7REFERENCE  :  FLOAT 

INTELSAT6REFERENCE  :  FLOAT 

INTELSAT  5  REFERENCE  :  FLOAT 


=  1.05; 
:=  1.1; 


—  margin  for  error 
:=  900.0;  -  (watts*sec)\(kg*Kelvin) 
:  =  3445.0;         -- kgs 
:  =2227.0;         -kgs 
:  =  1900.0; 


INTELSAT7HOUSEKEEPINGPOWER:  constant  FLOAT  :=  613.0;  -  intelsat  VII 
INTELSAT6HOUSEKEEPINGPOWER:  constant  FLOAT  :=  347.0;  -  intelsat  VI 

INTELSAT  5  HOUSEKEEPING  POWER:  constant  FLOAT  :=  211.0;  -  intelsat  V 


TEMPERATUREAFTEREQUINOX, 

ABSOLUTETEMPERATURE, 
EQUILIBRIUMTEMPERATURE, 
TIMEMINIMUM  TEMP  ECLIPSE, 


170 


HOUSEKEEPINGPOWER, 

HEATRADIATEDTOSPACE, 

TIMECONSTANT, 

MINIMUMOPERATINGTEMPERATURE, 

RADIATORAREA, 

RADIATORHEIGHT, 

SOLARARRAYDIAMETER, 

THERM  ALDISSIPATION, 

PERCENTPAYLOADPOWERDISSIPATION, 

HOUSEKEEPINGPERCENTPOWERDISSIPATION, 

TEMPERATUREEQUINOX, 

TEMPERATUREEQUINOXCELCIUS, 

X  : FLOAT  ; 

STEFANBOLTZMANN  :  FLOAT  :=  5.67E-08; 

EFFICIENCY  :  FLOAT  :=  0.9; 

SOLARASPECTCOEFFICIENTSOLSTICE  :  FLOAT  :=  23.5; 

SOLARASPECTCOEFFICIENTEQUINOX  :  FLOAT  :=  0.0  ; 

SOLARINTENSITYSOLSTICE  :  FLOAT  :=  1397.0;    -  W/mA2 

SOLARINTENSITYEQUINOX  :  FLOAT  :=  1362.0;    -  W/mA2 

RADIATORTEMPERATURE  :  FLOAT  :=  310.0;  -  degrees  kelvin 

RADIATOR_EMITTANCE_EOL  :  FLOAT  :-  0.8; 

SOLARABSORBTANCEEOL  :  FLOAT  :=  0.21;    --  optical  solar  reflector 

SOLAR_EMITTANCE_EOL  :  FLOAT  :=  0.8;     --  optical  solar  reflector 

BOL_SOLAR_ABSORBTANCE  :  FLOAT  :=  0.08;    -  optical  solar  reflector 

BOL_SOLAR_EMITTANCE  :  FLOAT  :=  0.8;     --  optical  solar  reflector 

ABSOLUTEZERO  :  FLOAT  :=  273.0;  --  kelvin 

NUMBERTHERMALEMITTINGFACES  :  FLOAT  :=  2.0;  --  #  thermal  emitting  faces 

MASS_RADIATOR_PLUS_EQUIPMENT  :  FLOAT  :=  85.0;  -  Kgs 

PERCENT  PARTIAL  POWER  :  FLOAT  :=  0.5;    -  % 


OKAY 
DRUM_SPINNER 

:  BOOLEAN  :=  TRUE; 

:  BOOLEAN  :  =  FALSE; 

Y, 

y. 

N, 

n, 

TAKE, 

CHAR 

:  CHARACTER  ; 

I, 

DECISION, 

J 

:  INTEGER ; 

OUTH 

:FILE_TYPE; 
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procedure  PRINTHEADER  is 
begin 

VIDEO.  CLEAR_SCREEN;SET_LINE(1); 

NEW_LINE(2); 

SETCOL(IO); 

PUT_LINE("This  program  walks  through  a  THERMAL  CONTROL  design  for"); 

SET_COL(10); 

PUT_LINE("a  solar  powered  geosynchronous  satellite."); 

SET_COL(10); 

PUT_LINE("A11  pertinent  data  will  be  saved  to  a  file  called  THERMAL.DAT"); 

NEWJJNE; 
end  PRINT  HEADER; 

procedure  DUALSPIN  (DRUM_SPINNER  :  in  out  BOOLEAN)  is 
begin 

SETCOL(IO); 

PUT_LINE("Is  your  spacecraft  Spin  Stabilized  "); 
SET_COL(15); 
GETCHARACTER(char); 
if  CHAR  =  *Y'  or  CHAR  =  y  then 
DRUM_SPINNER:  =TRUE; 
if  DRUMSPINNER  =  TRUE  then 

VIDEO.  CLEAR_SCREEN;SET_LINE(1); 

SET_COL(10);  " 

PUT_LINE(" Satellite  is  Spin  Stabilized"); 

NEW_LINE(2); 

PUT  LINEf "******************************************************************")• 

end  if; 
else 

VIDEO.CLEAR_SCREEN;SET_LINE(l); 

SETCOL(IO);  " 

PUT_LINE("Satellite  is  Three  Axis  Stabilized"); 

NEW_LINE(2); 

PUT  LINEf "******************************************************************")• 

end  if; 
end  DUAL  SPIN; 


procedure  OPERATINGDATA  (BATTERYLOAD  :  in  out  FLOAT; 

DRUMSPINNER  :  in  out  BOOLEAN; 

RADIATORSPECIFICHEAT  :  in  out  FLOAT; 

RADIATOREMITTANCEEOL  :  in  out  FLOAT; 

MASSRADIATORPLUSEQUIPMENT     :  in  out  FLOAT; 
EFFICIENCY  :  in  out  FLOAT; 

NUMBER_THERMAL_EMITTING_FACES   :  in  out  FLOAT; 
PAYLOADPOWER  :  in  out  FLOAT; 

ECLIPSE  TIME  :  in  out  FLOAT)  is 
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SPACECRAFTMASSBEFOREAPOGEEBURN, 
SOL  AR_  ARRA  YLO  AD , 
MASSREFERENCE, 
HOUSEKEEPINGPOWERREFERENCE  :  FLOAT; 


REPLACE  :  BOOLEAN  :  =  FALSE; 

CHOICE, 


CHANGE, 

INPUT  :  INTEGER  ; 


begin 

if  DRUM_SPINNER  =  FALSE  then 
PUT_LINE(OUTH, "SPACECRAFT  IS  THREE  AXIS  STABILIZED"); 
PUT  LINE(OUTH  "***********************************"y 

NEWLINE(OUTH.l); 
else 

PUT_LINE(OUTH," SPACECRAFT  IS  SPIN  STABILIZED"); 

PUT  LINE(OUTH  "*****************************")• 

NEW_LINE(OUTH,l); 
end  if; 

SETCOL(IO); 

PUT_LINE( "Enter  the  mass  of  the  spacecraft  in  kilograms"); 

SET_COL(10); 

GET_DATA(SPACECRAFT_MASS_BEFORE_APOGEE_BURN); 

VIDEO.  CLEAR_SCREEN;SET_LINE(1); 

SET_COL(15);  " 

PUT(" Spacecraft  mass  before  apogee  motor  burn  is    "); 

PUT(SPACECRAFT_MASS_BEFORE_APOGEE_BURN,  FORE  -  >  5,  AFT  =  >  1,  EXP  =  >  0); 

PUT("    kgs"); 

PUT(OUTH,  "Spacecraft  mass  before  apogee  motor  burn  is    "); 

SET_COL(OUTH,55); 

PUT(OUTH,SPACECRAFT_MASS_BEFORE_APOGEE_BURN,  FORE  -  >  5,  AFT  =  >  2,  EXP  =  >  0); 

PUT(OUTH,"    kgs"); 

NEW_LINE(OUTH,l); 

NEW_LINE(2); 

NEV7_LINE(2); 

MASS_REFERENCE:=INTELSAT_5_REFERENCE; 
HOUSEKEEPINGPOWERREFERENCE:  =  INTELSAT5HOUSEKEEPINGPOWER; 

—  The  mass  of  the  electrical  power  system  is 
SETCOL(IO); 
PUT_LINE(" Enter  the  POWER  requirements  of  the  Spacecraft  in  watts."); 

SET_COL(15); 
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GETDATA(PAYLOADPOWER); 

NEW_LINE(2); 

SET_COL(15); 

VIDEO.CLEARSCREEN; 

PUT("Payload  power  requirements  are  "); 

PUT(PAYLOAD_POWER,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    Watts"); 

PUT(OUTH,"Payload  power  requirements  are  "); 

SETCOUOUTH.55); 

PUT(OUTH,PAYLOAD_POWER,  FORE  =  >  5,  AFT  =  >  2,  EXP  =  >  0); 

PUT(OUTH,"   Watts"); 

NEW_LINE(OUTH,l); 

NEW_LINE(2); 

PUT  ljne("******************************************************************"v 

NEW_LINE(2); 

SET_COL(5); 

PUT_LINE("Choose  which  satellite  you  want  as  your  reference  for  "); 

SET_COL(5); 

PUT_LINE( "housekeeping  power  and  spacecraft  mass  in  kilograms."); 

NEW_LINE(2); 

PUT  LINE( "******************************************************************")■ 

NEWLINE(l); 

PUT_LINE("  '1'  '2'  '3'  "); 

SET_COL(5); 

PUT_LINE("  Intelsat  V       Intelsat  VI      Intelsat  VII"); 

SET_COL(5); 

PUT_LINE("Mass       1900.0  kgs   2227.0  kgs   3445.0  kgs"); 

SET_COL(5); 

PUT_LINE("  Housekeeping       211.0  347.0  613.0"); 

SET_COL(5); 

PUT_LINE("Power"  ); 

PUT  LJNE(" ******************************************************************")' 

SET~COL(5); 

PUT_LINE( "For  an  INTELSAT  V     reference      enter   integer   '1'    "); 

SET_COL(5); 

PUT_LINE("For  an  INTELSAT  VI   reference      enter   integer    '2'    "); 

SET_COL(5); 

PUT_LINE("For  an  INTELSAT  VII  reference      enter   integer    '3'    "); 

SET_COL(5); 

PUT_LINE("For  your  own  reference  value's     enter   integer   '4'    "); 

SET_COL(5); 

PUT_LINE("NO  CHANGES   ie  intelsat  5  values  enter   integer   '5'    "); 

GETJNTEGER(CHOICE); 

case  CHOICE  is 
when  1  =  > 

MASS_REFERENCE:=INTELSAT_5_REFERENCE; 

HOUSEKEEPING_POWER_REFERENCE:  =  INTELSAT_5_HOUSEKEEPING_POWER; 

NEW_LINE(OUTH,l); 

PUT(OUTH,"MASS  and  HOUSEKEEPING   REFERENCE  INTELSAT  5"); 
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NEW  LINE(OUTH,l); 


when  2=  > 

MASS_REFERENCE:=INTELSAT_6_REFERENCE; 

HOUSEKEEPINGPOWER  REFERENCE:  =INTELSAT_6_H0USEKEEPING_P0WER; 

NEW_LINE(OUTH,l); 

PUT(OUTH,"MASS  and  HOUSEKEEPING   REFERENCE  INTELSAT  6"); 

NEW_LINE(OUTH,l); 

when  3  =  > 

M  ASSREFERENCE:  =  INTELSAT7REFERENCE; 

HOUSEKEEPINGPOWERREFERENCE:  =  INTELSAT7HOUSEKEEPINGPOWER; 

NEW_LINE(OUTH,l); 

PUT(OUTH,"MASS  and  HOUSEKEEPING   REFERENCE  INTELSAT  7"); 

NEW_LINE(OUTH,l); 

when  4  =  > 

NEW_LINE(2); 

PUT  LINE( "******************************************************************")■ 

NEW_LINE(2); 

VIDEO.CLEARSCREEN; 

PUT("Please  enter  desired  REFERENCE   MASS"); 

SET_COL(15); 

GETDATA(MASSREFERENCE); 

PUT(OUTH, "INPUT  MASS  REFERENCE  "); 

SET_COL(OUTH,55); 

PUT(OUTH,MASS_REFERENCE,FORE=  >4,AFT=  >2,EXP=  >0); 

NEW_LINE(OUTH,l); 

VIDEO.  CLEARSCREEN; 

NEW_LINE(2); 

PUT  LJNEf "******************************************************************")' 

NEW_LINE(2); 

PUT("Please  enter  desired  HOUSEKEEPING  POWER  reference"); 

SET_COL(15); 

GETDATA(HOUSEKEEPINGPOWERREFERENCE); 

PUT(OUTH, "INPUT  HOUSEKEEPING  POWER  REFERENCE  "); 

SET_COL(OUTH,55); 

PUT(OUTH,HOUSEKEEPING_POWER_REFERENCE,FORE=  >4,AFT=  >2,EXP=  >0); 

NEW_LINE(OUTH,l); 

VIDEO.  CLE  ARSCREEN ; 
when  OTHERS  =  > 

NEW_LINE(2); 

SET_COL(5); 

PUT( "Understand  INTELSAT  V  DATA  WILL  BE  USED"); 

PUT(OUTH,"MASS  and  HOUSEKEEPING   REFERENCE  INTELSAT  5"); 

NEW_LINE(OUTH,l); 
end  case; 
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HOUSEKEEPINGPOWER:  =  (SPACECRAFTM  ASSBEFOREAPOGEEBURN 

/MASSREFERENCE) 

♦HOUSEKEEPINGPOWERREFERENCE; 
VIDEO.CLEARSCREEN; 
NEW_LINE; 
SETCOL(IO); 

PUT(" Housekeeping  power  is    "); 
SET_COL(60); 
PUT(HOUSEKEEPING_POWER,  FORE  -  >  6,  AFT  =  >  2,  EXP  =  >  0); 


NEW_LINE(3); 

PUT_LINE("The  Housekeeping  Power  value  will  be  used  in  future  calculations  if"); 

PUT_LINE("you  want  to  use  this  value  enter  a  'y'  for  YES.  If  you  wish  to  "); 

PUT_LINE(  "change  the  value  enter  a  'n'  for  NO  and  the  value  you  enter  will  "); 

put_line("be  used  in  further  further  calculations"); 

NEW_LINE(2); 

PUT  LINE( "***************************************************************")• 

NEW_LINE(2); 
GETCHARACTER(CHAR); 
if  CHAR  =  'Y'  or  CHAR  -  'y'  then 
VIDEO.  CLEAR_SCREEN; 

NEW_LINE(1); 

PUT("  Pay  load  power  requirements  are  "); 

PUT(PAYLOAD_POWER,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    Watts"); 

NEW_LINE(3); 

PUT("Please  enter  a  value  for  the  housekeeping  power"); 

GETDATA(HOUSEKEEPINGPOWER); 

VIDEO .  CLE  ARSCREEN ; 

NEW_LINE(2); 

PUT  LiNE(" ******************************************************************")■ 

NEW_LINE(2); 

PUT( "Housekeeping  Power  is    "); 

SET_COL(60); 

PUT(HOUSEKEEPING_POWER,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

NEW_LINE(3); 

PUT("  Pay  load  power  requirements  are  "); 

PUT(PAYLOAD_POWER,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

PUT("    Watts"); 

NEW_LINE(3); 

STOP; 

end  if; 
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PUT(OUTH, "Housekeeping  power  is    "); 

SET_COL(OUTH,55); 

PUT(OUTH,HOUSEKEEPING_POWER,  FORE  -  >  5,  AFT  =  >  2,  EXP  -  >  0); 

NEW_LINE(OUTH,l); 

<<NEW  VALUE  >  > 


VIDEO.CLEARSCREEN; 

PUT_LINE("FOLLOWING  IS  A  LIST  OF  VARIABLES  AND  THEIR  DEFAULT  VALUES"); 

PUT_LINE(" "); 

PUT("EFFICIENCY  [1]  "); 

SET_COL(56); 

PUT(EFFICIENCY,FORE=  >4,AFT=  >2,EXP=  >0); 

NEW_LINE(1); 

PUT("SOLAR_ASPECT_COEFFICIENT_SOLSTICE  [2]"); 

SET_COL(56); 

PUT(SOLAR_ASPECT_COEFFICIENT_SOLSTICE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    degrees"); 

NEW_LINE(1); 

PUT("SOLAR_INTENSITY_SOLSTICE  [3]"); 

SET_COL(56); 

PUT(SOLAR_INTENSITY_SOLSTICE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    Watts/mA2"); 

NEW_LINE(1); 

PUT("SOLAR_INTENSITY_EQUINOX  [4]"); 

SET_COL(56); 

PUT(SOLAR_INTENSITY_EQUINOX,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    Watts/mA2"); 

NEW_LINE(1); 

PUT("RADIATOR_TEMPERATURE  [5]"); 

SET_COL(56); 

PUT(RADIATOR_TEMPERATURE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    kelvin"); 

NEW_LINE(1); 

PUT("RADIATOR_EMITTANCE_EOL  [6]"); 

SET_COL(56); 

PUT(RADIATOR_EMITTANCE_EOL,FORE=  >4,AFT=  >2,EXP=  >0); 

NEWLINE(l); 

PUT("ABSOLUTE_ZERO  "); 

SET_COL(56); 

PUT(ABSOLUTE_ZERO,FORE=  >4,AFT=  >2,EXP-  >0); 

PUT("   kelvin"); 

NEWLINE(l); 

177 


PUT("TIME_ECLIPSE  [7]"); 

SET_COL(56); 

PUT(TIME_ECLIPSE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("   kelvin"); 

NEW_LINE(1); 

PUT("NUMBER_THERMAL_EMITTING_FACES  [8]"); 

if  DRUMSPINNER  =  TRUE  and  REPLACE  =  FALSE  then 

NUMBERTHERMALEMITTINGFACES:  =  1.0; 
end  if; 

SET_COL(56); 

PUT(NUMBER_THERMAL_EMITTING_FACES,FORE=  >4,AFT=  >2,EXP  =  >0); 
NEWLINE(l); 

PUT("MASS_RADIATOR_PLUS_EQUIPMENT  [9]"); 

SET_COL(56); 

PUT(MASS_RADIATOR_PLUS_EQUIPMENT,FORE  =  >4,AFT=  >2,EXP  =  >0); 

PUTC*    legs"); 

NEWLINE(l); 

PUTfPERCENTPARTIALPOWER  [10]"); 

SET_COL(56); 

PUT(PERCENT_PARTIAL_POWER*100.0,FORE  =  >4,AFT=  >2,EXP=  >0); 

PUT("    %"); 

NEW_LINE(1); 

PUT("RADIATOR_SPECIFIC_HEAT  [11]"); 

SET_COL(56); 

PUT(RADIATOR_SPECIFIC_HEAT,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    (watts*sec)\(kg*Kelvin)"); 

NEWLINE(l); 

if  REPLACE  -  FALSE  then 
CHAR  :=  N; 

PUT_LINE("If  you  desire  to  change  any  of  the  listed  values  please  enter  "); 
GETCHARACTER(CHAR); 
if  CHAR  =  'Y'  or  CHAR  =  'y'  then 

CHAR :=  N; 

PUT_LINE(" Enter  number  corresponding  to  value  you  wish  to  change."); 

set_col(10); 

GETINTEGER(CHANGE); 

VIDEO.CLEARSCREEN; 
else 

VIDEO.  CLE  ARSCREEN; 

goto  KEEPVALUES; 
end  if; 
elsif  REPLACE  =  TRUE  then 

PUT_LINE( "Enter  number  corresponding  to  value  you  wish  to  change."); 
set_col(10); 

GETINTEGER(CHANGE); 
VIDEO.  CLE  ARSCREEN ; 
end  if; 
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VIDEO.  CLE  ARSCREEN; 
case  CHANGE  is 
when  1  =  > 

PUT("Please  enter  a  value  for  Efficiency  (usually  around  0.9)"); 

SET_COL(15); 

GETDATA(EFFICIENCY); 

NEW_LINE(2); 

PUT  LINE( "********************************************************************")• 

NEW_LINE(2); 

PUT("EFFICIENCY"); 

SET_COL(50); 

PUT(EFFICIENCY,FORE=  >4,AFT=  >2,EXP=  >0); 

NEW_LINE(1); 

when  2  =  > 

PUT("Please  enter  a  value  for  Solar  Aspect  (usually  23.5  degrees)"); 

SET_COL(15); 

GET_DATA(SOLAR_ASPECT_COEFFICIENT_SOLSTICE); 

NEW_LINE(2); 

PUT  line("********************************************************************")- 

NEW_LINE(2); 

PUT( "  SOLARASPECTCOEFFICIENTSOLSTICE " ) ; 

SET_COL(50); 

PUT(SOLAR_ASPECT_COEFFICIENT_SOLSTICE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    degrees"); 

NEWLINE(l); 

when  3  =  > 

PUT("Please  enter  a  value  for  Solar  Intensity  at  Solstice  (1397.0)"); 

SET_COL(15); 

GET_DATA(SOLAR_INTENSITY_SOLSTICE); 

NEW_LINE(2); 

PUT  LINEf "********************************************************************")■ 

NEW_LINE(2); 

PUT("SOLAR_INTENSITY_SOLSTICE"); 

SET_COL(50); 

PUT(SOLAR_INTENSITY_SOLSTICE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    Watts/mA2"); 

NEW_LINE(1); 

when  4  =  > 

PUT("Please  enter  a  value  for  Solar  Intensity  at  Equinox  (1362.0)"); 

SET_COL(15); 

GET_DATA(SOLAR_INTENSITY_EQUINOX); 

NEW_LINE(2); 

PUT  LINEC "********************************************************************"); 

NEV7_LINE(2); 

PUT("SOLAR_INTENSITY_EQUINOX"); 

SET_COL(50); 
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PUT(SOLAR_INTENSITY_EQUINOX,FORE  =  >4,AFT=  >2,EXP=  >0); 

PUT("   Watts/mA2"); 

NEWLINE(l); 

when  5  =  > 

PUT( "Please  enter  a  value  for  Radiator  Temperature  (310.0)"); 

SET_COL(15); 

GETD  ATA(RADIATORTEMPERATURE) ; 

NEW_LINE(2); 

PUT  LINE( "********************************************************************")■ 

NEV/_LINE(2); 

PUTfRADIATORTEMPERATURE"); 

SET_COL(50); 

PUT(RADIATOR_TEMPERATURE,FORE=  >4,AFT=  >2,EXP  =  >0); 

PUT("    kelvin");  " 

NEW_LINE(1); 

when  6  =  > 

PUT("Please  enter  a  value  for  Radiator  Emittance   (0.8)"); 

SET_COL(15); 

GET_DATA(RADIATOR_EMITTANCE_EOL); 

NEW_LINE(2); 

PUT  LINE( "********************************************************************")• 

NE\V_LINE(2); 

PUT("RADIATOR_EMITTANCE_EOL"); 

SET_COL(50); 

PUT(RADIATOR_EMITTANCE_EOL,FORE=  >4,AFT=  >2,EXP=  >0); 

NEW_LINE(1); 

when  7  =  > 

PUT("Please  enter  a  value  for  Eclipse  Time  (72.0  minutes)"); 

SET_COL(15); 

GETDATA(TIMEECLIPSE); 

NEW_LINE(2); 

PUT  LijsfE( "********************************************************************")• 

NEW_LINE(2); 

PUT("TIME_ECLIPSE"); 

SET_COL(50); 

PUT(TIME_ECLIPSE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("   kelvin"); 

NEW_LINE(1); 

when  8  =  > 

PUT("Please  enter  a  value  for  Emitting  Faces  (2.0)"); 

SET_COL(15); 

GET_DATA(NUMBER_THERMAL_EMITTING_FACES); 

NEW_LINE(2); 

PUT  LINE( "********************************************************************")■ 

NEVV_LINE(2); 

PUT("NUMBER_THERMAL_EMITTING_FACES"); 

SET_COL(50); 

PUT(NUMBER_THERMAL_EMITTING_FACES,FORE=  >4,AFT=  >2,EXP=  >0); 
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NEWLINE(l); 

when  9  =  > 

PUT("Please  enter  a  value  for  Mass  of  Radiator  plus  equipment  (85.0)"); 

SET_COL(15); 

GET_DATA(MASS  RADIATORPLUSEQUIPMENT); 

NEW_LINE(2); 

PUT  LINE( "********************************************************************")• 

NEW_LINE(2); 

PUT("MASS_RADIATOR_PLUS_EQUIPMENT"); 

SET_COL(50); 

PUT(MASS_RADIATOR_PLUS_EQUIPMENT,FORE  =  >4,AFT=  >2,EXP=  >0); 

PUT("    kgs"); 

NEWLINE(l); 

when  10  =  > 

PUT("Please  enter  a  value  for  Percent  Partial  Power  (0.5)"); 
SET_COL(15); 

GET_DATA(PERCENT_PARTIAL_POWER); 
NEW_LINE(2); 

*  ^j  a     i_.  j  i  'i  iZ ■  y  )  i 

NE\V_LINE(2); 

PUT(  "PERCENTP  ARTI ALPO  WER " ) ; 

SET_COL(50); 

PUT(PERCENT_PARTIAL_POWER*100.0,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    %"); 

NEWLINE(l); 

when  1 1  =  > 

PUT("Please  enter  a  value  for  Radiator  Specific  Heat"); 

SET_COL(15); 

GET_DATA(RADIATOR_SPECIFIC_HEAT); 

NEW_LINE(2); 

PUT  LINEf "********************************************************************")■ 

NEVV_LINE(2); 

PUT("RADIATOR_SPECIFIC_HEAT"); 

SET_COL(50); 

PUT(RADIATOR_SPECIFIC_HEAT,FORE=  >4,AFT=  >2,EXP-  >0); 

PUT("    (watts*sec)\(kg*Kelvin)  "); 

NEW_LINE(1); 

when  others  =  > 
video .  clearscreen ; 

PUT_LINE( "UNDERSTAND  NO   MORE   CHANGES   PLEASE   ENTER   AN    'N'    FOR   NEXT 
QUESTION"); 

PUT_LINE("IF  YOU  STILL  DESIRE  TO  MAKE  CHANGES  ENTER  'Y'"); 
NEW_LINE(3); 

end  case; 

NEW_LINE(2); 

PUT  LINE("********************************************************************")j 

NE\V_LINE(2); 

181 


NEW_LINE(2); 

CHAR  :  =  N; 

PUT_LINE("If  you  wish  to  change  a  value  please  enter  a    'y'    for  YES"); 

PUTLINEfotherwise  enter  a  'n'  for  NO  "); 

REPLACE:  =  FALSE; 

GETCHARACTER(CHAR); 

if  CHAR  =  *Y'  or  CHAR  =  'y'  then 

CHAR :=  N; 

REPLACE:  =  TRUE; 

VIDEO.  CLEARSCREEN; 

goto  NEW_VALUE; 

else 

VIDEO.  CLE  ARSCREEN; 

goto  KEEPVALUES; 

NEW_LINE(3); 
end  if; 
STOP; 

<<KEEP_VALUES>> 

PUT(OUTH,  "EFFICIENCY"); 

SET_COL(OUTH,55); 

PUT(OUTH,EFFICIENCY,FORE=  >5,AFT=  >2,EXP=  >0); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "SOLAR  ANGLE  SOLSTICE"); 

SET_COL(OUTH,55); 

PUT(OUTH,SOLAR_ASPECT_COEFFICIENT_SOLSTICE,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    degrees"); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "SOLAR  INTENSITY  SOLSTICE"); 

SET_COL(OUTH,55); 

PUT(OUTH,SOLAR_INTENSITY_SOLSTICE,FORE=  >5,AFT-  >2,EXP=  >0); 

PUT(OUTH,"   Watts/raA2"); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "SOLAR  INTENSITY  EQUINOX"); 

SET_COL(OUTH,55); 

PUT(OUTH,SOLAR_INTENSITY_EQUINOX,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    Watts/mA2"); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "RADIATOR  TEMPERATURE"); 

SET_COL(OUTH,55); 

PUT(OUTH,RADIATOR_TEMPERATURE,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"   kelvin"); 

NEW_LINE(OUTH,l); 

PUT(OUTH,  "RADIATOR  EMITTANCE"); 

SET_COL(OUTH,55); 

PUT(OUTH)RADIATOR_EMITTANCE_EOL,FORE=  >5,AFT=  >2,EXP=  >0); 
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NEW_LINE(OUTH,l); 

PUT(OUTH,  "ABSOLUTE  ZERO"); 

SET_COL(OUTH,55); 

PUT(OUTH,ABSOLUTE_ZERO,FORE=  >5,AFT=  >2,EXP  =  >0); 

PUT(OUTH,"   kelvin"); 

NEW_LINE(OUTH,l); 

PUT(OUTH,"TIME  ECLIPSE"); 

SET_COL(OUTH,55); 

PUT(OUTH,TIME_ECLIPSE,FORE  =  >5,AFT  =  >2,EXP=  >0); 

PUT(OUTH,"   kelvin"); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "NUMBER  THERMAL  EMITTING  FACES"); 

SET_COL(OUTH,55); 

PUT(OUTH,NUMBER_THERMAL_EMITTING_FACES)FORE=  >5,AFT=  >2,EXP  =  >0); 

NEW_LINE(OUTH,l); 

PUT(OUTH,"MASS  RADIATOR  PLUS  EQUIPMENT"); 

SET_COL(OUTH,55); 

PUT(OUTH,MASS_RADIATOR_PLUS_EQUIPMENT,FORE  =  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    kgs"); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "PERCENT  PARTIAL  POWER"); 

SET_COL(OUTH,55); 

PUT(OUTH,PERCENT_PARTIAL_POWER*100.0,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    %"); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "RADIATOR  SPECIFIC  HEAT"); 

SET_COL(OUTH,55); 

PUT(OUTH,RADIATOR_SPECIFIC_HEAT,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    (watts*sec)\(kg*Kelvin)"); 

NEW_LINE(OUTH,l); 


end  OPERATINGDATA; 
procedure  HEAT 


(BATTERYLOAD 
DRUMSPINNER 
RADIATORAREA 
PAYLOAD  POWER 


:  in  out  FLOAT; 
:  in  out  BOOLEAN; 
:  in  out  FLOAT; 
:  in  out  FLOAT; 


TEMPERATURE_AFTER_EQUINOX         :  in  out  FLOAT; 
THERMALDISSIPATION  :  in  out  FLOAT; 

ECLIPSE  TIME  :  in  out  FLOAT)  is 


TIME  ECLIPSE 


:  FLOAT  :  =  72.0; 
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ECLIPSE_TIME_MINUTES  :  constant  FLOAT  :  =  72.0;  -  eclipse  time  in  minutes 

TIME_CONSTANT, 

TIME_CONSTANT_MINUTES, 

TIME_ECLIPSE_ONE, 

TIMEECLIPSE  TWO, 

EQUINOXJTEMPONE, 

EQUINOXTEMPTWO, 

CONST, 


SOLARABSORBTANCEBOL, 
SOLARABSORBTANCEEOL, 
RADIATOREMITTANCEEOL, 
EMITTANCEBOL  :  FLOAT  ; 

begin 

VIDEO.CLEARSCREEN; 

PUT_LINE("     Thermal  properties  of  surfaces  are  listed  in  the  text"); 

PUT_LINE("  Design  of  Geosynchronous  Spacecraft  by  Brij    Agrawal"); 

PUTLINEfin  Table  5.3   pg.  275"); 

PUT_LINE("the  properties  listed  are  Solar  Absorbtance  for  EOL  and  BOL"); 

PUT_LINE("as  well  as  Emittance  for  EOL  and   BOL"); 

PUT_LINE("The  following  surfaces  are  listed  and  can  be  used  for  thermal"); 

PUT_LINE( "radiation  surfaces  in  your  calculations."); 

NEWLINE(l); 

PUT_LINE("     Surface  Typical  Application  "); 

PUT_LINE( " " ) ; 

PUT_LINE("     Black  Paint  Interior  Structure"); 

PUT_LINE("     White  Paint  Antenna  Reflector"); 

PUT_LINE("     Optical  Solar  Reflector(OSR)   North  &  South  Panel  Reflectors"); 

PUT_LINE("     Aluminized  Kapton  Thermal  Insulation"); 

PUT_LINE("     Tiodized  Titanium  Apogee  Motor  Thermal  Shield"); 

PUT_LINE("     Aluminum  ,"); 

PUT_LINE("  aluminum  tape  Propellent  Insulation"); 

PUT_LINE("  deposited  aluminum"); 

PUT_LINE("     Anodized  Aluminum  Interior  Structure"); 

PUT_LINE("     Solar  Cells  Solar  Panels"); 

STOP; 

VIDEO.  CLEARSCREEN; 

PUT_LINE(" Please  enter  your  choice  for  thermal  emitting  surface"); 

PUT_LINE("to  be  used  for  calculations   try  (OSR)  CHOICE  [3]  first  "); 

PUT_LINE(" "); 

PUT_LINE("SURFACE  CHOICE       SOLAR  ABSORBTANCE  EMITTANCE"); 

PUT_LINE( " " ) ; 

PUT_LINE("  BOL  EOL  BOL  EOL"); 

PUT_LINE(" "); 

PUT_LINE("Black  Paint  [1]        0.9  0.9  0.9         0.9"); 

PUT_LINE( "White  Paint  [2]         0.2  0.6  0.9  0.9"); 

PUTLINEf  Optical  Solar  Ref.    [3]         0.08  0.21  0.8  0.8"); 

PUT_LINE( "Graphite  Epoxy         [4]         0.84  0.84  0.85         0.85"); 

PUT_LINE(  "Aluminized  Kapton     [5]         0.35  0.50  0.6  0.6"); 
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PUTLINEfTiodized  Titanium     [6]         0.6  0.6  0.6  0.6"); 

PUT_LINE( "  Aluminum  Depos/Tape  [7]         0.12  0.18  0.06         0.06"); 

PUT_LINE("Anodized  Aluminum     [8]         0.2  0.6  0.8  0.8  "); 

PUT_LINE(" Solar  Cells  [9]         0.7  0.7  0.82         0.82"); 

PUTLINEf  YOUR  VALUES  [10]    "); 

GETINTEGER(DECISION); 
video .  clearscreen ; 
case  DECISION  is 

when  1  =  > 

SOLARABSORBTANCEBOL  :=  0.9     ; 

SOLARABSORBTANCEEOL  :  =  0.9     ; 

RADIATOREMITTANCEEOL:  =  0.9     ; 

EMITTANCEBOL  :=  0.9     ; 

PUT_LINE(OUTH,  "RADIATOR  MATERIAL  IS  BLACK  PAINT"); 
when  2  =  > 

SOLARABSORBTANCEBOL  :=  0.2     ; 

SOLARABSORBTANCEEOL  :=  0.6     ; 

RADIATOR_EMITTANCE_EOL:  =  0.9     ; 

EMITTANCEBOL  :=  0.9     ; 

PUT_LINE(OUTH, "RADIATOR  MATERIAL  IS  WHITE  PAINT"); 

when  3  =  > 

SOLARABSORBTANCEBOL  :=  0.08 

SOLARABSORBTANCEEOL  :=  0.21 

RADIATOREMITTANCEEOL:  =  0.8 

EMITTANCEBOL  :=  0.8     ; 

PUT_LINE(OUTH, "RADIATOR  MATERIAL  IS  OPTICAL  SOLAR  REFLECTOR"); 

when  4  =  > 

SOLARABSORBTANCEBOL  :=  0.84    ; 

SOLARABSORBTANCEEOL  :=  0.84   ; 

RADIATOREMITTANCEEOL:  =  0.85    ; 

EMITTANCEBOL  :=  0.85   ; 

PUT_LINE(OUTH,  "RADIATOR  MATERIAL  IS  GRAPHITE  EPOXY"); 

when  5  =  > 

SOLARABSORBTANCEBOL  :=  0.35 

SOLARABSORBTANCEEOL  :=  0.50 

RADIATOREMITTANCEEOL:  =  0.6 

EMITTANCEBOL  :=  0.6     ; 

PUT_LINE(OUTH, "RADIATOR  MATERIAL  IS  ALUMINIZED  KAPTON"); 
when  6  =  > 

SOLARABSORBTANCEBOL  :=  0.6     ; 

SOLARABSORBTANCEEOL  :=  0.6     ; 

RADIATOREMITTANCEEOL:  =  0.6     ; 

EMITTANCEBOL  :=  0.6     ; 

PUT_LINE(OUTH, "RADIATOR  MATERIAL  IS  TIODIZED  TITANIUM"); 
when  7  =  > 

SOLARABSORBTANCEBOL  :=  0.12    ; 

SOLARABSORBTANCEEOL  :=  0.18    ; 

RADIATOREMITTANCEEOL:  =  0.06    ; 
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EMITTANCEBOL  :=  0.06    ; 

PUT_LINE(OUTH, "RADIATOR  MATERIAL  IS  ALUMINUM  DEPOSITS  OR  TAPE"); 

when  8=  > 

SOLAR_ABSORBTANCE_BOL  :=  0.2     ; 

SOLARABSORBTANCEEOL  :=  0.6     ; 

RADIATOREMITTANCEEOL:  =  0.8     ; 

EMITTANCEBOL  :=0.8     ; 

PUT_LINE(OUTH, "RADIATOR  MATERIAL  IS  ANODIZED  ALUMINUM"); 

when  9  =  > 

SOLARABSORBTANCEBOL  :=  0.7     ; 

SOLARABSORBTANCEEOL  :=  0.7     ; 

RADIATOREMITTANCEEOL:  =  0.82   ; 

EMITTANCEBOL  :=  0.82    ; 

PUT_LINE(OUTH,  "RADIATOR  MATERIAL  IS  SOLAR  CELLS"); 

when  10=  > 

VIDEO.  CLEAR_SCREEN; 

PUT("Please  enter  value  for  SOLAR  ABSORBTANCE  at  BOL"); 

SET_COL(15); 

GET_DATA(SOLAR_ABSORBTANCE_BOL); 

NEW_LINE(2); 

NEW_LINE(2); 

VIDEO.CLEARSCREEN; 

PUT( "Please  enter  value  for  SOLAR  ABSORBTANCE  at  EOL"); 

SET_COL(15); 

GETDATA(SOLARABSORBTANCEEOL); 

NEW_LINE(2); 

NEW_LINE(2); 

VIDEO.CLEARSCREEN; 

PUT("Please  enter  value  for  EMITTANCE  at  BOL"); 

SET_COL(15); 

GET_DATA(EMITTANCE_BOL); 

NEW_LINE(2); 

PUT  LINE( "******************************************************************")• 

NEVV_LINE(2); 
VIDEO.CLEARSCREEN; 

NEW_LINE(2); 

PUT  LINE(" ******************************************************************")• 

NEW_LINE(2); 

VIDEO.  CLEARSCREEN; 

PUT("Please  enter  value  for  EMITTANCE  at  EOL"); 

SET_COL(15); 

GET_DATA(RADIATOR_EMITTANCE_EOL); 

NEW_LINE(2); 

PUT  LINE( "******************************************************************")• 

NE\V_LINE(2); 

VIDEO.  CLEAR  SCREEN  ; 
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when  others  =  > 

SOLARABSORBTANCEBOL:  -  0.08    ; 

SOLAR_ABSORBTANCE_EOL:=  0.21    ; 

RADIATOREMITTANCEEOL:  =  0.8     ; 

EMITTANCEBOL  :=  0.8     ; 

NEW_LINE(2); 

PUT("  Values  for  absorbtance  and  emittance  are  for  Optical  Solar  Reflector  (OSR)"); 

NEW_LINE(1); 


end  CASE; 


PUT_LINE(" Values  for  absorbtance  and  emittance  are:  "); 

NEW_LINE(2); 

PUT("SOLAR  ABSORBTANCE  BOL  "); 

SET_COL(60); 

PUT(SOLAR_ABSORBTANCE_BOL,FORE  =  >  1,AFT=  >2,EXP  =  >0); 

NEW_LINE(2); 

PUT("SOLAR  ABSORBTANCE  EOL  "); 

SET_COL(60); 

PUT(SOLAR_ABSORBTANCE_EOL,FORE=  >  1,AFT=  >2,EXP=  >0); 

NEW_LINE(2); 

PUT("RADIATOR  EMITTANCE  BOL  "); 

SET_COL(60); 

PUT(EMITTANCE_BOL,FORE=  >  1,AFT  =  >2,EXP=  >0); 

NEW_LINE(2); 

PUT(" RADIATOR  EMITTANCE  EOL  "); 

SET_COL(60); 

PUT(RADIATOR_EMITTANCE_EOL,FORE=  >  1,AFT=  >2,EXP=  >0); 

PUT(OUTH, "Values  for  absorbtance  and  emittance  are:  "); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "SOLAR  ABSORBTANCE  BOL  "); 

SET_COL(OUTH,55); 

PUT(OUTH,SOLAR_ABSORBTANCE_BOL,FORE=  >5,AFT=  >2,EXP=  >0); 

NEW_LINE(OUTH,l); 

PUT(OUTH,  "SOLAR  ABSORBTANCE  EOL  "); 

SET_COL(OUTH,55); 

PUT(OUTH,SOLAR_ABSORBTANCE_EOL,FORE-  >5,AFT=  >2,EXP=  >0); 

NEW_LINE(OUTH,l); 

PUT(OUTH,  "EMITTANCE  BOL  "); 

SET_COL(OUTH,55); 

PUT(OUTH,EMnTANCE_BOL,FORE=  >5,AFT=  >2,EXP=  >0); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "EMITTANCE  EOL  "); 
SET_COL(OUTH,55); 
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PUT(OUTH,RADIATOR_EMITTANCE_EOL,FORE=  >5,AFT=  >2,EXP  =  >0); 
NEW_LINE(0UTH,2); 

NEW_LINE(2); 

PUT  LINE( "***************************************************************")• 

NEW_LINE(2); 

STOP; 

VIDEO.  CLEARSCREEN ; 

<  <TOOBIG>> 
PUT_LINE(  "Please  enter  the  PERCENT  PAYLOAD  POWER  that  must  be  "); 
PUT_LINE( "dissipated  as  heat  Example:  Enter  59%   as     '0.59'"); 

NEW_LINE(2); 
PUT  LINE( "***************************************************************")• 

NEW_LINE(2); 
SETCOL(IO); 

GET_DATA(PERCENT_PAYLOAD_POWER_DISSIPATION); 
ifPERCENT_PAYLOAD_POWER_DISSIPATION  >  1.0  then 

PUT  LINE( "***************************************************************")' 

VIDEO.CLEARSCREEN; 

NEW_LINE(2); 

PUT_LINE( "Please  use  a  value  less  then  1.0"); 

NEW_LINE(2); 

PUT  L INE( "***************************************************************")• 

gotoTOOBIG; 

end  if; 

NEW_LINE(2); 

PUT("Percent  Payload  Power  Dissipated  as  Heat  is     "); 

SET_COL(50); 

PUT(PERCENT_PAYLOAD_POWER_DISSIPATION*100.0,  FORE=  >2,AFT=  >2,EXP-  >0); 

PUT("  %"); 

NEW_LINE(2); 

PUT(OUTH, "Percent  Payload  Power  Dissipated  as  Heat  is     "); 

SET_COL(OUTH,55); 

PUT(OUTH,PERCENT_PAYLOAD_POWER_DISSIPATION*100.0,  FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    %"); 

NEW_LINE(OUTH,l); 


<<TOOBIGH>> 
PUT_LINE("Please  enter  the  PERCENT  OF  HOUSEKEEPING  POWER  that  must  be  "); 
PUT_LINE( "dissipated  as  heat  Example:  Enter  23%   as     '0.23'"); 

SET_COL(10); 

GET_DATA(HOUSEKEEPING_PERCENT_POWER_DISSIPATION); 
ifHOUSEKEEPINGPERCENTPOWERDISSIPATION  >  1.0  then 

VIDEO.  CLEAR_SCREEN; 

PUT  LINEC"***************************************************************")- 

NEW_LINE(2); 

PUT_LINE(" Please  use  a  value  less  then  1.0"); 

NEW_LINE(2); 
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goto  TOOBIGH; 
end  if; 

VIDEO.  CLE  ARSCREEN; 
NEW_LINE(2); 

PUT("Percent  Payload  Power  Dissipated  as  Heat  is  "); 
SET_COL(50); 

PUT(PERCENT_PAYLOAD_POWER_DISSIPATION*100.0,  FORE=  >2,AFT=  >2,EXP=  >0); 
PUT("  %"); 
NEW_LINE(2); 

PUT("Percent  Housekeeping  Power  Dissipated  as  Heat  is  "); 
SET_COL(50); 

PUT(HOUSEKEEPING_PERCENT_POWER_DISSIPATION*100.0,  FORE=  >2,AFT=  >2,EXP=  >0); 
PUT("  %"); 

PUT(OUTH, "Percent  Housekeeping  Power  Dissipated  as  Heat  is  "); 
SET_COL(OUTH,55); 

PUT(OUTH,HOUSEKEEPING_PERCENT_POWER_DISSIPATlON*100.0,    FORE=  >5,AFT  =  >2,EXP=  >0); 
PUT(OUTH,"    %"); 
NEW_LINE(OUTH,l); 
NEW_LINE(2); 

NEV7_LINE(2); 

STOP; 

--  Thermal  Dissipation  calculation 

if  DRUMSPINNER  =  FALSE  then 

THERM  AL_DISSIPATION:  =  (1.0/NUMBER_THERMAL_EMITTING_FACES) 

*(PAYLOAD_POWER*PERCENT_PAYLOAD_POWER_DISSIPATION 

+  HOUSEKEEPING_POWER*HOUSEKEEPING_PERCENT_POWER_DISSIPATION); 

NEW_LINE(2); 

PUT(  "Thermal  Dissipation  is  "); 

SET_COL(60); 

PUT(THERMAL_DISSIPATION,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT("    Watts"); 

PUT(OUTH, "Thermal  Dissipation  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,THERMAL_DISSIPATION,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"   Watts"); 

NEW_LINE(OUTH,l); 

—  Radiator  Area  calculation 

RADIATOR_AREA:=THERMAL_DISSIPATION/((P^DIATOR_EMrTTANCE_EOL*STEFAN_BOLTZMANN 
*RADIATOR_TEMPERATURE**4.0*EFFICIENCY)-(SOLAR_ABSORBTANCE_EOL 
*SOLAR_INTENSITY_SOLSTICE 
*SIN(SOLAR_ASPECT_COEFFICIENT_SOLSTICE*PI/ 180.0))); 

NEW_LINE(2); 

PUT( "Radiator  Area  is  "); 

SET_COL(60); 

PUT(RADI  ATOR_  AREA,  FORE  =  >5,AFT=  >3,EXP=  >0); 

PUT("  metersA2"); 
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NEW_LINE(1); 

PUT(OUTH, "Radiator  Area  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,RADIATOR_AREA,FORE  =  >5,AFT=  >2,EXP  =  >0); 

PUT(OUTH,"    meters"2"); 

NEW_LINE(OUTH,l); 

PUTJLINE("****************************^ 

NEW_LINE(2); 

--  temperature  during  equinox  calculation 


STOP; 

VIDEO.  CLEARSCREEN; 

TEMPERATURE_EQUINOX:  =  (THERM  ALDISSIPATION 

/(RADIATOR_EMITTANCE_EOL*STEFAN_BOLTZMANN*EFFICIENCY*RADIATOR_AREA))**0.25; 
NEW_LINE(2); 

PUT( "Temperature  at  Equinox  is  Full  Power"); 
SET_COL(60); 

PUT(TEMPERATURE_EQUINOX,FORE=  >5,AFT=  >2,EXP=  >0); 
PUT("    kelvin"); 

PUT(OUTH, "Temperature  at  Equinox  is  Full  Power"); 

SET_COL(OUTH,55); 

PUT(OUTH,TEMPERATURE_EQUINOX,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"   kelvin"); 

NEW_LINE(OUTH,l); 

TEMPERATUREEQUINOXCELCIUS:  =  TEMPERATUREEQUINOX-273. 15; 

NEW_LINE(2); 

PUT( "Temperature  at  Equinox  (celcius)is  "); 

SET_COL(60); 

PUT(TEMPERATURE_EQUINOX_CELCIUS,FORE-  >5,AFT=  >2,EXP=  >0); 

PUT("    celcius"); 

PUT(OUTH, "Temperature  at  Equinox  (celcius)  Full  Power  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,TEMPERATURE_EQUINOX_CELCIUS,FORE=  >5,AFT=  >2,EXP-  >0); 

PUT(OUTH,"   celcius"); 

NEW_LINE(OUTH,2); 

if  TEMPERATUREEQUINOXCELCIUS  >=  5.0 

and  TEMPERATUREEQUINOXCELCIUS  <  =  37.0   then 
NEW_LINE(2); 

PUT_LINE( "Temperature  during  equinox  non  eclipse  period  is  within  "); 
PUT_LINE("the  prescribed  limits  of  5  to  37  degrees  celcius.    No  "); 
PUT_LINE( "auxiliary  heating  is  required!  "); 
PUT_LINE(OUTH, "Temperature  during  equinox  non  eclipse  period  is  within  "); 
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PUT_LINE(OUTH,"the  prescribed  limits  of  5  to  37  degrees  celcius.    No  "); 

PUT_LINE(OUTH, "auxiliary  heating  is  required!  "); 

NEW_LINE(0UTH,1); 
elsif  TEMPERATUREEQUINOXCELCIUS  <  5.0  then 

NEW_LINE(2); 

PUT_LINE("  Temperature  is  to  low  auxiliary  heaters  will  be  required"); 

PUT_LINE(OUTH, "Temperature  is  to  low,  auxiliary  heaters  will  be  required"); 

NEW_LINE(OUTH,2); 
end  if; 

NEW_LINE(2); 

PUT  LiNE("*********************''t*,,<*****','***********',<*****',<',<***',''t'**','****',<**"V 
NEW_LINE(3); 


STOP; 
VIDEO.CLEARSCREEN; 

—  Equilibrium  Temperature  calculation 

NEW_LINE(2); 

PUT_LINE("When  batteries  provide  partial  power,  heat  dissipation    "); 

PUT_LINE("and  equilibrium  temperature  during  eclipse  is    "); 

new_line(2); 

EQUILIBRIUM  JTEMPERATURE:  =  ((THERMAL_DISSIPATION*PERCENT_PARTIAL_POWER) 

/(RADIATOR  EMITTANCE  EOL*STEFAN_BOLTZMANN*RADIATOR_AREA))**0.25; 


NEW_LINE(1); 

SET_COL(45); 

PUT(EQUILIBRIUM_TEMPERATURE,FORE  =  >5,AFT=  >2,EXP=  >0); 

PUT("    degrees  kelvin"); 

PUT(OUTH," Equilibrium  Temperature  Partial  Power"); 

SET_COL(OUTH,55); 

PUT(OUTH,EQUILIBRIUM_TEMPERATURE,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    degrees  kelvin"); 

NEW_LINE(OUTH,l); 

new_line(2); 

PUT  LINEf "****************************************************************")• 

NEW_LINE(3); 

--  Time  Constant  Calculation 

STOP; 

VIDEO.CLEARSCREEN; 

TIME_CONSTANT:  =  (MASS_RADIATOR_PLUS_EQUIPMENT*RADIATOR_SPECIFIC_HEAT) 
/(4.0*RADIATOR_EMITTANCE_EOL*STEFAN_BOLTZMANN 
*RADIATOR_AREA*EQUILIBRIUM_TEMPERATURE**3.0); 
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NEW_LINE(2); 

PUT("Time  Constant  is  "); 

SET_COL(50); 

PUT(TIME_CONSTANT,FORE=  >7,AFT  =  >0,EXP=  >0); 

PUT("    seconds"); 

TIME_CONSTANT_MINUTES:=TIME_CONST  ANT/60.0; 

NEW_LINE(2); 

PUT("Time  Constant  Minutes  is  "); 

SET_COL(50); 

PUT(TIME_CONSTANT_MINUTES,FORE=  >5,AFT  =  >2,EXP=  >0); 

PUT("    minutes"); 

PUT(OUTH,"Time  Constant  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,TIME_CONSTANT,FORE=  >7,AFT=  >0,EXP  =  >0); 

PUT(OUTH,"    seconds"); 

NEW_LINE(OUTH,l); 

PUT(OUTH,"Time  Constant  Minutes  is  "); 

SET_COL(50); 

PUT(OUTH,TIME_CONSTANT_MINUTES,FORE=  >5,AFT-  >2,EXP=  >0); 

PUT(OUTH,"    minutes"); 

NEW_LINE(0UTH,1); 

NEW_LINE(2); 

PUT  LINE(  "****************************************************************")• 

NE\V_LINE(2); 

STOP; 

VIDEO.  CLE  ARSCREEN; 

elsif  DRUMSPINNER  =  TRUE  then 

NUMBER_THERMAL_EMITTING_FACES:  =  1 .0; 
THERMALDISSIPATION^CPAYLOADPOWER+PERCENTPAYLOADPOWTRDISSIPATION 

+  HOUSEKEEPING_POWER*HOUSEKEEPING_PERCENT_POWER_DISSIPATION); 
NEW_LINE(2); 

PUT("Thermal  Dissipation  is  "); 
SET_COL(60); 

PUT(THERMAL_DISSIPATION,FORE=  >5,AFT=  >2,EXP=  >0); 
PUT("    Watts"); 

PUT(OUTH, "Thermal  Dissipation  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,THERMAL_DISSIPATION,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    Watts"); 

NEW_LINE(OUTH,l); 


—  Radiator  Area  calculation 
RADIATORHEIGHT, 
SOLARARRAYDIAMETER, 

NEW_LINE(2); 

PUT  LINE(" ***************************************************************"); 

NEW_LINE(2); 
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PUT("Please  enter  Solar  Array  Diameter  in  meters"); 

NEW_LINE(1); 

SET_COL(15); 

GETDATA(SOLARARRAYDIAMETER); 

VIDEO.  CLE  ARSCREEN ; 

NEW_LINE(1); 

PUT("Solar  Array  Diameter  is  "); 

SET_COL(55); 

PUT(SOLAR_ARRAY_DIAMETER,FORE=  >5,AFT=  >4,EXP=  >0); 

PUT("    meters"); 


PUT(OUTH, "Solar  Array  Diameter  is  "); 

SET_COL(OUTH,54); 

PUT(OUTH,SOLAR_ARRAY_DIAMETER,FORE  =  >5,AFT=  >3,EXP=  >0); 

PUT(OUTH,"    meters"); 

NEW  LINE(OUTH.l); 


RADIAT0R_HEIGHT:=THERMAL_DISSIPATI0N/(S0LAR_ARRAY_D1AMETER 
*((PI*RADIATOR_EMITTANCE_EOL*STEFAN_BOLTZMANN 
*RADIATOR_TEMPERATURE**4.0*EFFICIENCY)-(SOLAR_ABSORBTANCE_EOL 
*SOLAR_INTENSITY_EQUINOX 
*COS(SOLAR_ASPECT_COEFFICIENT_EQUINOX*PI/180.0)))); 

NEW_LINE(2); 

PUT("Radiator  Height  is  "); 

SET_COL(55); 

PUT(RADIATOR_HEIGHT,FORE  =  >5,AFT=  >4,EXP=  >0); 

PUT("    meters"); 

PUT(OUTH,  "Radiator  Height  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,RADIATOR_HEIGHT,FORE=  >5,AFT-  >2,EXP=  >0); 

PUT(OUTH,"    meters"); 

NEW_LINE(OUTH,l); 

RADIATOR_AREA:=RADIATOR_HEIGHT*PI*(SOLAR_ARRAY_D1AMETER/2.0)**2.0; 

new_line(l); 

PUT("Radiator  Area  (Spin  Stabilized)  is  "); 

SET_COL(55); 

PUT(RADIATOR_AREA,FORE-  >5,AFT=  >4,EXP=  >0); 

PUT("    metersA2"); 

PUT(OUTH, "Radiator  Area  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,RADIATOR_  AREA,  FORE  =  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    metersA2"); 

NEW  LINE(OUTH,l); 
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NEW_LINE(2); 

PUT  LINE(  **************************************************************** ")■ 

NEW_LINE(2); 

—  temperature  during  equinox  calculation 

PUT("Please  enter  a  value  for  Radiator  Efficiency  (usually  around  0.9)"); 

NEW_LINE(2); 

GETDATA(EFFICIENCY); 

NEW_LINE(2); 

PUT    l_\^^("  ***************************************************************")• 

NEW_LINE(2); 

PUT("EFFICTENCY"); 

NEW_LINE(2); 

SET_COL(50); 

PUT(EFFICIENCY,FORE=  >4,AFT=  >2,EXP=  >0); 

NEW_LINE(3); 

STOP; 


VIDEO.  CLEARSCREEN; 

TEMPERATURE_EQUINOX:=  (THERM  ALDISSIPATION 

/(RADIATOR_EMITTANCE_EOL*STEFAN_BOLTZMANN*EFFICIENCY 
*RADIATOR_HEIGHT*SOLAR_ARRAY_DIAMETER*PI))**0.25; 

NEW_LINE(2); 

PUT( "Temperature  at  Equinox  is  "); 

SET_COL(60); 

PUT(TEMPERATURE_EQUINOX,FORE-  >5,AFT-  >2,EXP=  >0); 

PUT("    kelvin"); 

PUT(OUTH,  "Temperature  at  Equinox  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,TEMPERATURE_EQUINOX,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    kelvin"); 

NEW_LINE(OUTH,l); 


TEMPERATURE_EQUINOX_CELCIUS:  =  TEMPERATURE_EQUINOX-273. 15; 

NEW_LINE(2); 

PUT(" Temperature  at  Equinox  (celcius)  is  "); 

SET_COL(60); 

PUT(TEMPERATURE_EQUINOX_CELCIUS,FORE=  >5,AFT=  >2,EXP-  >0); 

PUT("    celcius"); 

PUT(OUTH, "Temperature  at  Equinox  (celcius)  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,TEMPERATURE_EQUINOX_CELCIUS,FORE=  >5,AFT-  >2,EXP=  >0); 

PUT(OUTH,"    celcius"); 

NEW_LINE(OUTH,l); 
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ifTEMPERATURE_EQUINOX_CELCIUS  >=  5.0 

and  TEMPERATUREEQUINOXCELCIUS  <  =  37.0   then 

NEW_LINE(2); 

PUT_LINE(  "Temperature  during  equinox  non  eclipse  period  is  within  "); 

PUT_LINE("the  prescribed  limits  of  5  to  37  degrees  celcius.    No  "); 

PUT_LINE( "auxiliary  heating  is  required!  "); 

PUT_LINE(OUTH,  "Temperature  during  equinox  non  eclipse  period  is  within  "); 

PUT_LINE(OUTH,"the  prescribed  limits  of  5  to  37  degrees  celcius.    No  "); 

PUT_LINE(OUTH, "auxiliary  heating  is  required!  "); 

NEW_LINE(OUTH,2); 
elsif  TEMPERATUREEQUINOXCELCIUS  <  5.0  then 

NEW_LINE(2); 

PUT_LINE("  Temperature  is  to  low  auxiliary  heaters  will  be  required"); 

PUT_LINE(OUTH, "Temperature  is  to  low,  auxiliary  heaters  will  be  required"); 

NEW_LINE(OUTH,2); 
end  if; 

NEW_LINE(2); 
PUT  LINE( "****************************************************************'')■ 

NEW_LINE(3); 


STOP; 

VIDEO.  CLE  ARSCREEN; 

—  Equilibrium  Temperature  calculation 

NEW_LINE(2); 

PUT_LINE("When  batteries  provide  partial  power,  heat  dissipation    "); 

PUT_LINE("and  equilibrium  temperature  during  eclipse  is    "); 

new_line(2); 

EQUILIBRIUM  JTEMPERATURE:  =  ((THERMAL_DISSIPATION*PERCENT_PARTIAL_POWER) 
/(RADIATOR_EMITTANCE_EOL*STEFAN_BOLTZMANN 
*RADIATOR_HEIGHT*SOLAR_ARRAY_DIAMETER*PI))**0.25; 


SET_COL(45); 

PUT(EQUILIBRIUM_TEMPERATURE,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT("    degrees  kelvin"); 

PUT(OUTH, "Equilibrium  Temperature  Partial  Power  Supplied"); 

SET_COL(OUTH,55); 

PUT(OUTH,EQUILIBRIUM_TEMPERATURE,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"   kelvin"); 

NEW_LINE(OUTH,l); 

new_line(2); 

PUT  LINEf "****************************************************************")• 

NEW_LINE(3); 

—  Time  Constant  Calculation 
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STOP; 
VIDEO.CLEARSCREEN; 

TIME_CONSTANT:=(MASS_RADIATOR_PLUS_EQUIPMENT*RADIATOR_SPECIFIC_HEAT) 
/(4.0*RADIATOR_EMITTANCE_EOL*STEFAN_BOLTZMANN 
*RADIATOR_HEIGHT*SOLAR_ARRAY_DIAMETER*PI 
*EQUILIBRIUM_TEMPERATURE**3.0); 

NEW_LINE(2); 

PUT("Time  Constant  is  "); 

SET_COL(55); 

PUT(TIME_CONSTANT,FORE=  >5,AFT=  >2,EXP  =  >0); 

PUT("    seconds"); 

TIME_CONSTANT_MINUTES:=TIME_CONSTANT/60.0; 

NEW_LINE(2); 

PUT("Time  Constant  Minutes  is  "); 

SET_COL(50); 

PUT(TIME_CONSTANT_MINUTES,FORE=  >5,AFT  =  >2,EXP=  >0); 

PUT("    minutes"); 

PUT(OUTH,"Time  Constant  is  "); 

SET_COL(OUTH,53); 

PUT(OUTH,TIME_CONSTANT,FORE=  >7,AFT=  >0,EXP=  >0); 

PUT(OUTH,"    seconds"); 

NEW_LINE(OUTH,l); 

PUT(OUTH,"Time  Constant  Minutes  is  "); 

SET_COL(outh,55); 

PUT(OUTH,TIME_CONSTANT_MINUTES,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    minutes'); 

NEW_LINE(OUTH,l); 

NEW_LINE(2); 

PUT  LINEf "****************************************************************Hy 

NEV7_LINE(2); 

STOP; 

VIDEO.  CLEAR  SCREEN; 


end  if; 

PUT_LINE("For  the  case  of  radiative  cooling  find  'C  assuming  t  =  0.0  "); 
PUT_LINE("this  happens  when  the  equinox  temperature  is  less  than  the  "); 
PUT_LINE( "calculated  equilibrium  temperature"); 


if(TEMPERATURE_EQUINOX-EQUILIBRIUM_TEMPERATURE  )  <     5.0  then 

EQUILIBRIUMTEMPERATURE:  =EQUILIBRIUM_TEMPERATURE/1 .0146; 

NEW_LINE(3); 

PUT_LINE("THE  AMOUNT  OF  POWER  PROVIDED  DURING  ECLIPSE  IS  TO  CLOSE  TO"); 

PUT_LINE("FULL  POWER  SO  A  FUDGE  FACTOR  OF    1.0146%  HAS  BEEN  SUBTRACTED"); 

PUT_LINE("TO  EQUILIBRIUM  TO  PREVENT  A  COTH  NUMERIC  ERROR."); 

NEW_LINE(3); 
end  if; 
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CONST:  =  2.0*(ARCCOTH(TEMPERATURE_EQUINOX/EQUILIBRIUM_TEMPERATURE) 
-ARCCOT(TEMPERATURE_EQUINOX/EQUILIBRIUM_TEMPERATURE)); 


NEW_LINE(2); 

PUT("For  radiative  cooling  constant  'C  when  t  =  0.0  is  "); 

SET_COL(60); 

PUT(CONST,FORE  =  >3,AFT=  >6,EXP=  >0); 

PUT(OUTH, "Radiative  cooling  constant  'C  when  t=0.0  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,  CONST,  FORE  =  >  3,  AFT  =  >4,EXP=  >0); 

NEW_LINE(OUTH,l); 

NEW_LINE(2); 

PUT_LINECThe  next  portion  of  this  program  is  an  iterative  approach  to    "); 

PUT_LINE("find  the  temperature  after  equinox  for  an  equinox  period  )"); 

PUTLINEfof  1.2  hours  (72  minutes  or  4,320  seconds)"); 

NEW_LINE(1); 

PUT_LINE("The  purpose  of  this  iteration  is  to  bracket  an  Eclipse  Time  "); 

PUT_LINE("of  72  minutes.    For  example  we  want  one  value  above  (80  minutes)  "); 

PUT_LINE("and  one  value  below  (68)  minutes   a  good  starting  temperature  "); 

PUT_LINE("is  273.0  degrees  kelvin.  "); 

NEW_LINE(2); 

STOP; 

VIDEO.  CLE  AR_SCREEN; 

<<  EQUINOX  ONE>> 


PUT_LINE(" Please  enter  an  AFTER  EQUINOX  TEMPERATURE  guess  in  degrees  kelvin 
NEW_LINE(3); 
SETCOL(IO); 

GETDATA(EQUINOXTEMPONE); 
VIDEO.CLEARSCREEN; 
if  EQUINOX_TEMP_ONE  <  -  EQUILIBRIUMTEMPERATURE  then 
PUT_LINE  ("Condition  would  not  occur  in  real  life  please  try  again"); 
NEWLINE(l); 

PUT("Enter  a  value  greater  than  "); 

PUT(EQUILIBRIUM_TEMPERATURE,FORE=  >4,AFT=  >2,EXP=  >0); 
NEW_LINE(3); 
goto  EQUINOXONE; 


else 


TIME_ECLIPSE_ONE:=(2.0*(ARCCOTH(EQUINOX_TEMP_ONE/EQUILIBRIUM_TEMPERATURE) 
-ARCCOT(EQUINOX_TEMP_ONE/EQUILIBRIUM_TEMPERATURE))-CONST) 
*TIME_CONSTANT_MINUTES; 

PUT( "Temperature  Input  is  "); 

SET_COL(50); 
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PUT(EQUINOX_TEMP_ONE,FORE  =  >5,AFT=  >2,EXP=  >0); 
PUT("    degrees  kelvin"); 

NEW_LINE(2); 

PUT("For  radiative  cooling  Eclipse  Time  is  "); 

SET_COL(60); 

PUT(TIME_ECLIPSE_ONE,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT("    minutes"); 


new_line(2); 

PUT_LINE("ls  the  calculated  eclipse  time  close  to  72  minutes  +  /-  10  minutes  "); 

PUT_LINE( "Remember  if  this  value  is  above  72  minutes  then  the  next  value  "); 

PUT_LINE(" should  be  below  72  minutes,  or  vice  versus.  "); 

PUT_LINE("To  accept  this  eclipse  time  Enter  'Y'  for  yes   and    'N'    for   no  "); 

if  ABS(TIME_ECLIPSE_ONE-ECLIPSE_TIME_MINUTES)  >  10.0  then 

NEW_LINE(2); 

PUT_LINE(" CALCULATIONS  SHOW  THAT  ECLIPSE  FOR  TEMPERATURE  IS  MORE  THAN  10 
MINUTES"); 

PUT_LINE(" DIFFERENCE  FROM  THE  72  MINUTE  STANDARD  GEOSYNCHRONOUS  ECLIPSE 
TIME  "); 

PUT_LINE("RECOMMEND  INPUT  A    'N'  TO  RE-CALCULATE  A  NEW  ECLIPSE  TIME"); 

end  if; 

NEW_LINE(2); 

GET_CHARACTER(TAKE); 

if  TAKE  =  'Y'  or  TAKE  =  y  then 

TAKE  :=  'N'  ; 

VIDEO.  CLEARSCREEN ; 

goto  EQUINOXTWO; 
else 

VIDEO.  CLEARSCREEN; 

PUT_LINE( "Please  enter  a  new  temperature  for  the  equinox  temperature  "); 

goto  EQUINOXONE; 
end  if; 

STOP; 

VIDEO. CLEAR  SCREEN; 


PUT_LINE(  "Please  enter  a  new  after  equinox  temperature  guess  in  degrees  kelvin"); 
end  if; 


<  <EQUINOX_TWO>  > 

NEW_LINE(2); 

PUT( "First  Iterative  Eclipse  Time  for  linear  approximation  is  "); 

SET_COL(60); 

PUT(TIME_ECLIPSE_ONE,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT("    minutes"); 

NEW_LINE(2); 
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PUT( "First  Iterative  Temperature  is  "); 

SET_COL(50); 

PUT(EQUINOX_TEMP_ONE,FORE=  >5,AFT  =  >2,EXP  =  >0); 

PUT("    degrees  kelvin"); 

new_line(2); 


PUT_LINE("  Please  enter  a  new  after  equinox  temperature  guess  in  degrees  kelvin"); 
NEWLINE(l); 

GETDATA(EQUINOXTEMPTWO); 
if  EQUINOXTEMPTWO  <  =  EQUILIBRIUMTEMPERATURE  then 

VIDEO.  CLE  ARSCREEN; 

PUT_LINE  ("Condition  would  not  occur  in  real  life  please  try  again"); 

NEW_LINE(1); 

PUT("Enter  a  value  greater  than  "); 

PUT(EQUILIBRIUM_TEMPERATURE,FORE=  >4,AFT=  >2,EXP  =  >0); 

NEW_LINE(3); 

goto  EQUINOX  TWO; 
else 

VIDEO.  CLE  ARSCREEN ; 

TIMEECLIPSETWO:  -  (2.0*(ARCCOTH(EQUINOX_TEMP_TWO/EQUILIBRIUM_TEMPERATURE) 
-ARCCOT(EQUINOX_TEMP_TWO/EQUILIBRIUM_TEMPERATURE))-CONST) 
*TIME_CONSTANT_MINUTES; 
PUT( "First  Iterative  Eclipse  Time  for  linear  approximation  is  "); 
SET_COL(60); 

PUT(TIME_ECLIPSE_ONE,FORE=  >5,AFT=  >2,EXP=  >0); 
PUT("    minutes"); 
NEW_LINE(2); 

PUT("First  Iterative  Temperature  is  "); 
SET_COL(50); 

PUT(EQUINOX_TEMP_ONE,FORE  =  >5,AFT=  >2,EXP=  >0); 
PUT("   degrees  kelvin"); 
NEW_LINE(2); 

PUT("Second  Iterative  Eclipse  Time  for  linear  approximation  is  "); 
SET_COL(60); 

PUT(TIME_ECLIPSE_TWO,FORE=  >5,AFT=  >2,EXP=  >0); 
PUT("    minutes"); 
new_line(2); 

PUT(" Second  Iterative  Temperature  is  "); 
SET_COL(50); 

PUT(EQUINOX_TEMP_TWO,FORE=  >5,AFT=  >2,EXP=  >0); 
PUT("    degrees  kelvin"); 
new_line(2); 
if  ABS(TIME_ECLIPSE_TWO-ECLIPSE_TIME_MINUTES)  >  10.0  then 

NEW_LINE(2); 

PUT_LINE(" CALCULATIONS  SHOW  THAT  ECLIPSE  FOR  TEMPERATURE  IS  GREATER  THAN 
10  MINUTES"); 

PUT_LINE("RECOMMEND  INPUT  A    'N'  TO  RE-CALCULATED  A  NEW  ECLIPSE  TIME"); 

Dut  linef '***********************************************************************")', 

end  if; 
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PUT_LINE("Is  the  calculated  eclipse  time  close  to  72  minutes  +/-  10  minutes"); 

PUT_LINE("  Remember  if  this  value  is  above  72  minutes  then  the  next  value"); 

PUT_LINE(" should  below  72  minutes"); 

PUT_LINE("To  accept  this  eclipse  time  Enter  'Y'  for  yes   and    'N'    for   no"); 

SET_COL(15); 

GET_CHARACTER(TAKE); 

VIDEO.  CLEAR_SCREEN; 

if  TAKE  =  'Y*  or  TAKE  =  *y'  then 

if TIMEECLIPSEONE  =  72.0  then 

TEMPERATUREAFTEREQUINOX  :  =  EQUINOXTEMPONE; 
goto  TAE; 
elsif  TIMEECLIPSETWO  =  72.0   then 

TEMPERATURE_AFTER_EQUINOX  :  =  EQUINOXTEMPTWO; 
goto  TAE; 
elsif  TIMEECLIPSEONE  <  72.0   and   TIMEECLIPSETWO  >  72.0  then 
TAKE  :=  'N'  ; 
goto  STOPITERATION; 
elsif  TIMEECLIPSEONE  >  72.0   and   TIMEECLIPSETWO  <  72.0  then 
TAKE  :=  'N'  ; 
goto  STOPITERATION; 
elsif  TIME_ECLIPSE_ONE  <  72.0   and   TIMEECLIPSETWO  <  72.0  then 

PUT_LINE("BOTH  TIME  VALUES  ARE  BELOW  72.0  MINUTES  TRY  AGAIN"); 
TAKE  :=  'N'  ; 
goto  EQUINOXTWO; 
elsif  TIMEECLIPSEONE  >  72.0   and   TIMEECLIPSETWO  >  72.0  then 

PUT_LINE("BOTH  TIME  VALUES  ARE  ABOVE  72.0  MINUTES  TRY  AGAIN"); 
TAKE  :=  'N'  ; 
goto  EQUINOXTWO; 
end  if; 

else 

VIDEO.CLEARSCREEN; 

PUT_LINE(" Please  enter  a  new  temperature  in  order  to  bracket  a  72  minute  eclipse  time"); 
TAKE  :=  'N'  ; 
goto  EQUINOXTWO; 
end  if; 
end  if; 
--  CASE  OF  RADIATIVE  HEATING 


<  <  STOP  ITERATION  >  > 


TEMPERATURE_AFTER_EQUINOX:=ABS(((TIME_ECLIPSE_ONE-ECLIPSE_TIME_MINUTES) 
/(TIMEECLIPSEONE-TIMEECLIPSETWO)) 
♦(EQUINOXTEMPONE-EQUINOXTEMPTWO) 
-EQUINOXTEMPONE); 
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<<TAE>  > 

NEW_LINE(OUTH,l); 

PUT(OUTH, "First  Iterative  Time  for  linear  approximation  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,TIME_ECLIPSE_ONE,FORE  =  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    minutes"); 

NEW_LINE(0UTH,1); 

PUT(OUTH, "First  Iterative  Temperature  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,EQUINOX_TEMP_ONE,FORE-  >5,AFT  =  >2,EXP=  >0); 

PUT(OUTH,"   degrees  kelvin"); 

new_line(OUTH,l); 


PUT(OUTH, "Second  Iterative  Time  for  linear  approximation  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,TIME_ECLIPSE_TWO,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    minutes"); 

new_line(OUTH,l); 

PUT(OUTH, "Second  Iterative  Temperature  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,EQUINOX_TEMP_TWO,FORE=  >5,AFT=  >2,EXP=  >0); 

new_line(OUTH,l); 


PUT  ("Temperature  after  Equinox  is  "); 

SET_COL(50); 

PUT(TEMPERATURE_AFTER_EQUINOX,FORE  =  >5,AFT=  >2,EXP  =  >0); 

PUT  (OUTH, "Temperature  after  Equinox  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,TEMPERATURE_AFTER_EQUINOX,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    kelvin"); 

NEW_LINE(OUTH,2); 

NEW_LINE(2); 

PUT  LiNE(" ****************************************************************")' 

NE\V_LINE(2); 

STOP; 

end  HEAT; 

procedure  WARMJJP  (THERMALDISSIPATION  :  in  out  FLOAT; 

RADIATORSPECIFICHEAT  :  in  out  FLOAT; 

RADIATOR_EMITTANCE_EOL  :  in  out  FLOAT; 

RADIATORAREA  :  in  out  FLOAT; 

MASS_RADIATOR_PLUS_EQUIPMENT  :  in  out  FLOAT; 
EFFICIENCY  :  in  out  FLOAT; 

TEMPERATUREAFTEREQUINOX      :  in  out  FLOAT; 
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NUMBERTHERMALEMITTINGFACES:  in  out  FLOAT)  is 

OPERATINGTEMPERATURE     :  FLOAT  :  =278.0;--  degrees  kelvin 

TIME_CONSTANT_MINUTES, 

CONST, 

TIMECOOLING, 

TIME  HEATING  :  FLOAT  ; 


NEW  TEMPERATURE  :  INTEGER  ; 


begin 

VIDEO.CLEARSCREEN; 

PUT_LINE("Now  we  will  determine  the  time  it  takes  for  the  spacecraft  to"); 

PUT_LINE("  reach  a  specified  operating  temperature  after  eclipse.    Default"); 

PUT_LINE(  "operating  temperature  is  specified  as  278.0  degrees  Kelvin  or"); 

PUT_LINE("5  degrees  celcius."); 

newline(l); 

PUT_LINE("  DEFAULT  VALUES  FOR  OPERATING  PARAMETERS  ARE"); 

PUT("Radiator(s)  Dissipate  "); 

SET_COL(50); 

PUT(THERMAL_DISSIPATION,FORE=  >5,AFT=  >2,EXP  =  >0); 

PUT("    watts"); 

NEW_LINE(1); 

PUT("EFFICIENCY"); 

SET_COL<50); 

PUT(EFFICIENCY,FORE=  >5,AFT=  >2,EXP=  >0); 

NEWLINE(l); 

PUT("RADIATOR_EMITTANCE_EOL"); 

SET_COL(50); 

PUT(RADIATOR_EMITTANCE_EOL,FORE=  >5,AFT=  >2,EXP=  >0); 

NEW_LINE(1); 

PUT( "  M  ASSRADI ATORPLUSEQUIPMENT " ) ; 

SET_COL(50); 

PUT(MASS_RADIATOR_PLUS_EQUIPMENT,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT("    kgs"); 

NEW_LINE(1); 

PUT("RADIATOR_SPECIFIC_HEAT"); 

SET_COL(50); 

PUT(RADIATOR_SPECIFIC_HEAT,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT("(watts*sec)\(kg*Kelvin)  "); 

NEWLINE(l); 

PUT("Radiator  Area  is  "); 

SET_COL(50); 

PUT(RADIATOR_AREA,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT("    metersA2"); 
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NEWLINE(l); 

PUT( "Temperature  after  equinox  is  "); 

SET_COL(50); 

PUT(TEMPERATURE_AFTER_EQUINOX,FORE  =  >5,AFT  =  >2,EXP  =  >0); 

PUT("   kelvin"); 

NEW_LINE(2); 


PUT("Desired  operating  temperature  after  equinox  is  "); 

SET_COL(50); 

PUT(OPEPvATING_TEMPERATURE,FORE--  >5,AFT=  >2,EXP=  >0); 

PUT("   kelvin"); 

NEW_LINE(1); 

PUT_LINE("The  Radiator  Heat  Dissipation  may  be  changed  if  desired"); 

PUT_LINE("this  value  enter  a  'y'  for  YES.  If  you  wish  to  change  the  value"); 

PUT_LINE( "enter  a  'n'  for  NO  and  the  value  you  enter  will  be  used  in  "); 

put_line(" further  calculations"); 

GETCHARACTER(CHAR); 

if  CHAR  =  'Y'  or  CHAR  =  y  then 

VIDEO.CLEAR_SCREEN; 

PUT("Please  enter  a  value  for  the  Radiator  Heat  Dissipation  "); 

NEW_LINE(3); 

PUT  line/ "***************************************************************"y 

NEW_LINE(3); 

GET_DATA(THERMAL_DISSIPATION); 

PUT("Radiator  Heat  Dissipation  is    "); 

SET_COL(60); 

PUT(THERMAL_DISSIPATION,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 

NEWLINE(l);  " 
else 

VIDEO.CLEARSCREEN; 
end  if; 
NEW_LINE(1); 

PUT_LINE("The  default  operating  temperature  after  equinox  is  5  degrees  celcius"); 
PUT_LINE("or  278  degrees  kelvin.    If  you  wish  to  change  this  value  enter  a"); 
PUT_LINE("'y'  for  YES.    To  accept  the  default  value  enter  an  'n'  for  NO  changes"); 
NEW_LINE(2); 

GETCHARACTER(CHAR); 
if  CHAR  =  'Y'  or  CHAR  =  'y'  then 
VIDEO.  CLEARSCREEN; 

PUT(" Please  enter  a  value  for  operating  temperature  after  equinox  "); 

NEW_LINE(3); 

PUT  LINEf"******************************************'1'********************")) 

NEW_LINE(3); 

GET_D  ATA(OPERATINGTEMPERATURE) ; 

PUT( "Desired  operating  temperature  is    "); 

SET_COL(60); 

PUT(OPERATING_TEMPERATURE,  FORE  =  >  6,  AFT  =  >  2,  EXP  =  >  0); 
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NEW_LINE(1); 
else 

VIDEO.  CLE  ARSCREEN ; 
end  if; 

—  Equilibrium  Temperature  calculation 

PUT(OUTH,"Radiator(s)  Dissipate  "); 

SET_COL(OUTH,55); 

PUT(OUTH,THERMAL_DISSIPATION,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"   watts");  " 

NEW_LINE(OUTH,l); 

PUT(OUTH,  "Efficiency"); 

SET_COL(OUTH,55); 

PUT(OUTH, EFFICIENCY, FORE  =  >5,AFT=  >2,EXP=  >0); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "Radiator  Emittance"); 

SET_COL(OUTH,55); 

PUT(OUTH,RADIATOR_EMITTANCE_EOL,FORE=  >5,AFT=  >2,EXP=  >0); 

NEW_LINE(OUTH,l); 

PUT(OUTH,"Mass  Radiator  Plus  Equipment"); 

SET_COL(OUTH,55); 

PUT(OUTH,MASS_RADIATOR_PLUS_EQUIPMENT,FORE=  >5,AFT=  >2,EXP  =  >0); 

PUT(OUTH,"   kgs"); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "Radiator  Specific  Heat"); 

SET_COL(OUTH,55); 

PUT(OUTH,RADIATOR_SPECIFIC_HEAT,FORE-  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"(W*s)/(kg*Kelvin)");  " 

NEW_LINE(OUTH,l); 

PUT(OUTH, "Radiator  Area  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,RADIATOR_AREA,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    metersA2"); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "Desired  operating  temperature  after  equinox  is  "); 

SET_COL(OUTH,55); 

PUT(OUTH,OPERATING_TEMPERATURE,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"   kelvin"); 

NEW_LINE(OUTH,l); 

EQUILIBRIUM_TEMPERATURE:  =  (THERM  ALDISSIPATION/ 

(RADIATOR_EMITTANCE_EOL*STEFAN_BOLTZMANN*EFFICIENCY*RADIATOR_AREA))**0.25; 
NEW_LINE(2); 

PUT(" Equilibrium  Temperature"); 
SET_COL(50); 
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PUT(EQUILIBR1UM_TEMPERATURE,F0RE=  >7,AFT  =  >2,EXP=  >0); 

PUT("    kelvin"); 

STOP; 

if  (EQUILIBRIUMTEMPERATURE-TEMPERATUREAFTEREQUINOX)  <     5.0  then 

EQUILIBRIUMTEMPERATURE:  =  1.0146*EQUILIBRIUM_TEMPERATURE; 

NEW_LINE(3); 

PUT_LINE("THE  AMOUNT  OF  POWER  PROVIDED  DURING  ECLIPSE  IS  TO  CLOSE  TO"); 

PUT_LINE("FULL  POWER  SO  A  FUDGE  FACTOR  OF    1.0146%  HAS  BEEN  ADDED  TO"); 

PUT_LINE("  EQUILIBRIUM  TO  PREVENT  A  TANH  NUMERIC  ERROR."); 
end  if; 

PUT(" Radiative  Heating  'C  assuming  t  =  0.0  is  "); 
CONST:=2.0*((ARCTANH(TEMPERATURE_AFTER_EQUINOX/EQUILIBRIUM_TEMPERATURE))- 

(ARCTAN(TEMPERATURE_AFTER_EQUINOX/EQUILIBRIUM_TEMPERATURE))); 
SET_COL(48); 

PUT(CONST,FORE=  >7,AFT=  >4,EXP=  >0); 
NEWLINE(l); 

PUT(OUTH,  "Equilibrium  Temperature  Heating  After  Eclipse"); 

SET_COL(OUTH,55); 

PUT(OUTH,EQUILIBRIUM_TEMPERATURE,FORE  =  >5,AFT=  >2,EXP  =  >0); 

PUT(OUTH,"   kelvin"); 

new_lme(OUTH,l); 


—  Time  Constant  Calculation 

TIME_CONSTANT:  =  (MASS_RADIATOR_PLUS_EQUIPMENT*RADIATOR_SPECIFIC_HEAT) 
/(4.0*RADIATOR_EMITTANCE_EOL*EFFICIENCY*STEFAN_BOLTZMANN 
*RADIATOR_AREA*EQUILIBRIUM_TEMPERATURE**3.0); 

NEW_LINE(2); 

PUT("Time  Constant  Heating  After  Eclipse  is  "); 

SET_COL(50); 

PUT(TIME_CONSTANT,FORE=  >7,AFT=  >2,EXP=  >0); 

PUT("    seconds"); 

NEW_LINE(2); 

PUT(OUTH,"Time  Constant  Heating  After  Eclipse  is"); 

SET_COL(OUTH,54); 

PUT(OUTH,TIME_CONSTANT,FORE=  >6,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    seconds"); 

NEW_LINE(OUTH,l); 

TIME_CONSTANT_MINUTES:=TIME_CONSTANT/60.0; 

PUT("Time  Constant  is  "); 

SET_COL(50); 

PUT(TIME_CONSTANT_MINUTES,FORE=  >7,AFT=  >2,EXP=  >0); 

PUT("    minutes"); 

NEW_LINE(2); 

205 


PUT(OUTH,"Time  Constant  Heating  After  Eclipse  is"); 

SET_COL(OUTH,55); 

PUT(OUTH,TIME_CONSTANT_MINUTES,FORE  =  >5,AFT  =  >2,EXP  =  >0); 

PUT(OUTH,"    minutes"); 

NEW  LINE(0UTH,1); 


PUT( "Temperature  After  Equinox"); 

SET_COL(50); 

PUT(TEMPERATURE_AFTER_EQUINOX,FORE=  >7,AFT=  >2,EXP=  >0); 

PUT("   kelvin"); 

NEW_LINE(2); 

PUT( "Equilibrium  Temperature"); 

SET_COL(50); 

PUT(EQUILIBRIUM_TEMPERATURE,FORE  =  >7,AFT=  >2,EXP=  >0); 

PUT("    kelvin"); 

NEW_LINE(2); 

NEW_LINE(OUTH,l); 

PUT(OUTH, "Radiative  Cooling  Constant  when  t  =  0.0"); 

SET_COL(OUTH,55); 

PUT(OUTH,CONST,FORE=  >3,AFT  =  >4,EXP=  >0); 

NEW_LINE(OUTH,l); 

NEWLINE(l); 

PUT(" Operating  Temperature"); 

SET_COL(50); 

PUT(OPERATING_TEMPERATURE,FORE=  >7,AFT=  >2,EXP=  >0); 

PUT("    kelvin"); 

new_LINE(2); 

PUT(OUTH, "Operating  Temperature  Satellite"); 

SET_COL(OUTH,55); 

PUT(OUTH,OPERATING_TEMPERATURE,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    kelvin"); 

NEW_LINE(OUTH,l); 

TIMEHEATING:-  ((2.0*(ARCTANH(OPERATING_TEMPERATURE/EQUILIBRIUM_TEMPERATURE) 

-ARCTAN(OPERATING_TEMPERATURE/EQUILIBRIUM_TEMPERATURE)))-CONST) 

*TIME_CONSTANT_MINUTES; 

NEW_LINE(2); 

PUT(" Radiative  heating  after  Eclipse  "); 

SET_COL(50); 

PUT(TIME_HEATING,FORE=  >7,AFT=  >2,EXP=  >0); 

PUT("    minutes"); 

NEW_LINE(2); 

PUT(OUTH,"Time  Constant"); 

SET_COL(OUTH,55); 

PUT(OUTH,TIME_CONSTANT_MINUTES,FORE=  >5,AFT=  >2,EXP=  >0); 
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PUT(OUTH,"    minutes"); 
NEW  LINE(OUTH.l); 


PUT(OUTH,"Time  Radiative  heating  after  Eclipse"); 

SET_COL(OUTH,55); 

PUT(OUTH,TIME_HEATING,FORE=  >5,AFT=  >2,EXP=  >0); 

PUT(OUTH,"    minutes"); 

NEW_LINE(OUTH,l); 

STOP; 


end  WARM  UP; 


begin 


CREATE(OUTH,NAME  =  >  "THERMAL.DAT"); 
PRINT  HEADER; 


DUALSPIN 
OPERATING  DATA 


HEAT 


WARM  UP 


(DRUMSPINNER); 

(BATTERYLOAD, 
DRUMSPINNER, 
RADIATOR_SPECIFIC_HEAT, 
RADIATOREMITTANCEEOL, 
MASS_RADIATOR_PLUS_EQUIPMENT, 
EFFICIENCY, 

NUMBERTHERMALEMITTINGFACES, 
PAYLOADPOWER,  " 
ECLIPSE_TIME); 

(BATTERY_LOAD, 

DRUM_SPINNER, 

RADIATORAREA, 

PAYLOADPOWER, 

TEMPERATUREAFTEREQUINOX, 

THERM  AL_DISSIPATION, 

ECLIPSE_TIME); 

(THERM  AL_DISSIPATION, 

RADIATORSPECIFICHEAT, 

RADIATOREMITTANCEEOL, 

RADIATORAREA, 

MASS_RADIATOR_PLUS_EQUIPMENT, 

EFFICIENCY, 
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TEMPERATUREAFTEREQUINOX, 
NUMBER  THERMAL  EMITTING  FACES); 


CLOSE(OUTH); 

STOP; 

NEW_LINE(2); 

PUT_LINE("DATA  FOR  THIS  DESIGN  RUN  IS  LOCATED  IN  THE  FOLLOWING  FILE"); 

NEWLINE(l); 

PUTLINEf  >>>>>>>>>>>>>>>>>>>     THERMAL.DAT  "); 

NEW_LINE(2); 

PUT_LINE("TO  KEEP  DATA  FROM  BEING  ERASED  ON  NEXT  RUN"); 

PUT_LINE("USE  DOS  COMMAND  REN  (RENAME)  "); 

NEW_LINE(1); 

PUT_LINE( "EXAMPLE  -  REN  THERMAL.DAT     THERMAL.INI"); 

PUTLINEfThe  .INI   could   be   your   initials"); 

NEW_LINE(5); 

end  THERMAL; 
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D. 


ARRAY  THERMAL  CONTROL 


—  Title  :  Thermal  Characteristics 
~  Author  :  David  Lashbrook 

—  Date  :  15  February  1992 
--  Revised  :  30  March  1992 

--  Compiler  :  OPENADA  EXT 

—  Description      :  This  procedure  determines  the  thermal  characteristics  for 

solar  arrays  in  geosynchronous  orbits. 

with  TEXTIO,  GETDATA,  GENERICELEMENTARYFUNCTIONS,  VIDEO; 
use   TEXTIO  ,  GETDATA  ; 

procedure  ARRAYTHERMALCONTROL  is 


package  FLOATINOUT  is  new  FLOATIO(FLOAT); 

use       FLOATINOUT; 

package  INTEGERJNOUT  is  new  INTEGERJO(INTEGER); 

use       INTEGERJNOUT; 

package  BOOLEANINOUT  is  new  ENUMERATIONIO(BOOLEAN); 

use       BOOLEANINOUT; 

package  GEFJNOUT  is  new  GENERICELEMENTARYFUNCTIONS(FLOAT); 

use       GEF  INOUT; 


OKAY 

DRUM_SPINNER 

:  BOOLEAN  :  =  TRUE; 

:  BOOLEAN  :  =  FALSE; 

Y, 

y, 

N, 

n, 

TAKE, 
CHAR 

:  CHARACTER  ; 

I, 

DECISION, 
J 

:  INTEGER ; 

PI 

:  FLOAT  :=  3.14159; 

X 

: FLOAT ; 

OUTATC 

-.FILE  TYPE; 

procedure  PRINTHEADER  is 
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begin 

VIDEO.  CLEAR_SCREEN;SET_LINE(1); 

NEW_LINE(2); 

SET_COL(10); 

PUT_LINE("This  program  walks  through  a  ARRAY  THERMAL  Characteristics  "); 

SET_COL(10); 

PUT_LINE("for  a  solar  powered  geosynchronous  satellite."); 

SET_COL(10); 

PUT_LINE("A11  pertinent  data  will  be  saved  to  a  file  called  ARRAYTC.DAT"); 

NEW_LINE; 
end  PRINTHEADER; 

procedure  DUALSPIN  (DRUMSPINNER  :  in  out  BOOLEAN)  is 
begin 

SETCOL(IO); 

PUT_LINE("Is  your  spacecraft  Spin  Stabilized  "); 
SET_COL(15); 
GET_CHARACTER(char); 
if  CHAR  =  'Y'  or  CHAR  =  'y'  *en 
DRUMSPINNER:  =TRUE; 
if  DRUM_SPINNER  =  TRUE  then 

VIDEO.CLEAR_SCREEN;SET_LINE(l); 

SET_COL(10);  " 

PUT_LINE(" Satellite  is  Spin  Stabilized"); 

NEW_LINE(OUTATC,  1); 

PUT_LINE(OUTATC, "Satellite  is  Spin  Stabilized"); 

PUT  LINE(OUTATC  "****************************")• 

NEVV_LINE(OUTATC,  1); 

NEW_LINE(2); 

PUT  LINEf  "*****************#************************************************ "y 

end  if; 

else 

VIDEO.CLEAR_SCREEN;SET_LINE(l); 

SET_COL(10);  " 

PUT_LINE(" Satellite  is  Three  Axis  Stabilized"); 

NEW_LINE(OUTATC,  1); 

PUT_LINE(OUTATC, "Satellite  is  Three  Axis  Stabilized"); 

PUT  LINE(OUTATC  "**********************************")• 

NEW_LINE(OUTATC,  1); 

NEW_LINE(2); 

PUT  LINE(  "******************************************************************")• 

end  if; 
end  DUAL  SPIN; 


procedure  SOLARARRAYTEMPERATURE  (DRUMSPINNER   :  in  out  BOOLEAN)  is 

STEFANBOLTZMANN  :  FLOAT  :=  5.67E-08; 

SOLAR_ASPECT_COEFFICIENT_SOLSTICE  :  FLOAT  :=  23.5; 
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SOLARASPECTCOEFFICIENTEQUINOX  :  FLOAT  :=  0.0; 

CELLEMITTANCEFRONT  :  FLOAT  :=  0.8; 

CELLEMITTANCEBACK  :  FLOAT:-  0.7; 

SOLARINTENSITYWINTERSOLSTICE  :  FLOAT  :=  1397.0;    -  W/mA2 

SOLARINTENSITYSUMMERSOLSTICE  :  FLOAT  :=  1311.0;   -- W/mA2 

SOLARINTENSITYVERNALEQUINOX  :  FLOAT  :=  1362.0;    -- W/mA2 

SOLARINTENSITYAUTUMNALEQUINOX  :  FLOAT  :=  1345.0;    -  W/mA2 

CELLEFFICIENCY  :  FLOAT  :  -  0. 14; 

PACKINGF  ACTOR  :  FLOAT  :=  0.95; 

AVGSOLARCELLABSORBTANCE  :  FLOAT  :=  0.8; 

WINTERSOLSTICEOPERATINGTEMPERATURE, 

SUMMERSOLSTICEOPERATINGTEMPERATURE, 

VERNALEQUINOXOPERATINGTEMPERATURE, 

AUTUMNALEQUINOXOPERATINGTEMPERATURE, 

EFFECTIVESOLARCELLABSORBTANCE, 

FRONTARRAYAREA, 

BACKARRAY  AREA  :  FLOAT  ; 


CHANGESOLAR  :  INTEGER  ; 

begin 

PUT_LINE("This  portion  of  the  design  uses  the  following  values  as  listed  below:"); 
NEWLINE(l); 

PUT_LINE(" 

NEW_LINE(1); 

PUT("Solstice  Angle"); 

SET_COL(55); 

PUT(SOLAR_ASPECT_COEFFICIENT_SOLSTICE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    degrees"); 

NEW_LINE(1); 

PUT("Equuiox  Angle"); 

SET_COL(55); 

PUT(SOLAR_ASPECT_COEFFICIENT_EQUINOX,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    degrees"); 

NEW_LINE(1); 

PUT("Cell  Emittance  Front"); 

SET_COL(55); 

PUT(CELL_EMITTANCE_FRONT,FORE=  >3,AFT=  >3,EXP=  >0); 

NEWLINE(l); 

PUT("Cell  Emittance  Back"); 

SET_COL(55); 

PUT(CELL_EMITTANCE_BACK,FORE=  >3,AFT=  >3,EXP=  >0), 

NEW_LINE(1); 

PUT("Solar  Intensity  Winter  Solstice"); 

SET_COL(55); 

211 


PUT(SOLAR_INTENSITY_WINTER_SOLSTICE,FORE  =  >4,AFT=  >2,EXP  =  >0); 
PUT("    W/mA2"); 

NEWLINE(l); 

PUT( "Solar  Intensity  Summer  Solstice"); 

SET_COL(55); 

PUT(SOLAR_INTENSITY_SUMMER_SOLSTICE,FORE=  >4,AFT  =  >2,EXP=  >0); 

PUT("   W/mA2"); 

NEW_LINE(1); 

PUT("Solar  Intensity  Vernal  Equinox"); 

SET_COL(55); 

PUT(SOLAR_INTENSITY_VERNAL_EQUINOX,FORE  =  >4,AFT=  >2,EXP=  >0); 

PUT("    W/m*2"); 

NEW_LINE(1); 

PUT( "Solar  Intensity  Autumnal  Equinox"); 

SET_COL(55); 

PUT(SOLAR_INTENSITY_AUTUMNAL_EQUINOX,FORE=  >4,AFT=  >2,EXP  =  >0); 

PUT("   W/nT2"); 

NEWLINE(l); 

PUT("Cell  Efficiency"); 

SET_COL(55); 

PUT(CELL_EFFICIENCY,FORE=  >2,AFT=  >4,EXP=  >0); 

NEW_LINE(1); 

PUT( "Packing  Factor"); 

SET_COL(55); 

PUT(PACKING_FACTOR,FORE=  >2,AFT=  >4,EXP=  >0); 

NEWLINE(l); 

PUT(" Average  Solar  Cell  Absorbtance"); 

SET_COL(55); 

PUT(AVG_SOLAR_CELL_ABSORBTANCE,FORE=  >2,AFT=  >4,EXP=  >0); 

NEW_LINE(2); 

PUT_LINE("If  you  desire  to  CHANGE  any  of  the  listed  values  please  enter  "); 

PUT_LINE("a  'y'  for  YES   otherwise  enter  a  'n'  for  NO"); 

GETCHARACTER(CHAR); 

if  CHAR  =  'Y'  or  CHAR  =  'y'  then 

CHAR  :=  N; 
VIDEO.  CLE  ARSCREEN ; 

<<  VALUE  >> 

PUT_LINE( "Please  enter  the  number  value  to  the  right  of  the  value  you  "); 

PUT_LINE("wish  to  CHANGE.  (DEFAULT  VALUES  ARE  IN  PARENTHESIS)"); 

new_line; 

PUT_LINE("Cell  emittance  Back  is  not  used  for  spin  stabilized  spacecraft  calculations"); 

put_LINE(" "); 

PUT_LINE("SOLAR_ASPECT_COEFFICIENT_SOLSTICE  [1]"); 
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PUT_LINE("SOLAR_ASPECT_COEFFICIENT  EQUINOX  [2]"); 

PUT_LINE("CELL_EMITTANCE_FRONT  [3]"); 

PUT_LINE( "  CELLEMITTANCEB  ACK  [4] " ) ; 

PUT_LINE("SOLAR_INTENSITY_WINTER_SOLSTICE  [5]"); 

PUT_LINE("SOLAR_INTENSITY_SUMMER_SOLSTICE  [6]"); 

PUT_LINE("SOLAR_INTENSITY_VERNAL_EQUINOX  [7]"); 

PUT_LINE("SOLAR_INTENSITY_AUTUMNAL_EQUINOX  [8]"); 

PUT_LINE("CELL_EFFICIENCY  [9]"); 

PUT_LINE("PACKING_F  ACTOR  [10]"); 

PUT_LINE("AVG_SOLAR_CELL_ABSORBTANCE  [11]"); 

GETINTEGER(CHANGESOLAR); 
VIDEO.  CLEARSCREEN; 

case  CHANGESOLAR  is 
when  1  =  > 

VIDEO.CLEARSCREEN; 

PUT("Please  enter  a  value  for  SOLARASPECTCOEFFICIENTSOLSTICE"); 

NEW_LINE(3); 

GET_DATA(SOLAR_ASPECT_COEFFICIENT_SOLSTICE); 

NEWLINE(l); 

PUT("Solstice  Angle"); 

SET_COL(60); 

PUT(SOLAR_ASPECT_COEFFICIENT_SOLSTICE,FORE=  >4,AFT=  >2,EXP-  >0); 

PUT("    degrees"); 

NEW_LINE(3); 

when  2  —> 

VIDEO .  CLE  AR_SCREEN ; 

PUT("Please  enter  a  value  for  SOLAR_ASPECT_COEFFICIENT_EQUINOX"); 

NEW_LINE(3); 

GET_DATA(SOLAR_ASPECT_COEFFICIENT_EQUINOX); 

NEW_LINE(1); 

PUT("Equinox  Angle"); 

SET_COL(55); 

PUT(SOLAR_ASPECT_COEFFICIENT_EQUINOX,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    degrees"); 

NEW_LINE(3); 

when  3  =  > 

VIDEO.  CLEARSCREEN; 

PUT("Please  enter  a  value  for  CELL_EMITTANCE_FRONT"); 

NEW_LINE(3); 

GET_DATA(CELL_EMITTANCE_FRONT); 

NEW_LINE(1); 

PUT("Cell  Emittance  Front  "); 

SET_COL(55); 

PUT(CELL_EMITTANCE_FRONT,FORE=  >4,AFT=  >2,EXP=  >0); 

NEW_LINE(3); 
when  4  =  > 

VIDEO .  CLEARSCREEN ; 

NEW_LINE(3); 

PUT("Please  enter  a  value  for  CELL_EMITTANCE_BACK"); 
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GET_DATA(CELL_EMITTANCE_BACK); 

NEWLINE(l); 

PUTfCell  Emittance  Back  "); 

SET_COL(55); 

PUT(CELL_EMITTANCE_BACK,FORE=  >4,AFT=  >2,EXP  =  >0); 

NEW_LINE(3); 
when  5  =  > 

VIDEO.  CLE  ARSCREEN; 

PUT("Please  enter  a  value  for  SOLARINTENSITYWINTERSOLSTICE"); 

NEW_LINE(3); 

GET_DATA(SOLAR_INTENSITY_WINTER_SOLSTICE); 

NEWLINE(l); 

PUT("Solar  Intensity  Winter  Solstice"); 

SET_COL(55); 

PUT(SOLAR_INTENSITY_WINTER_SOLSTICE,FORE=  >4,AFT  =  >2,EXP=  >0); 

PUT("   W/m*2"); 

NEW_LINE(3); 
when  6  =  > 

VIDEO.CLEARSCREEN; 

PUT("Please  enter  a  value  for  SOLAR_INTENSITY_SUMMER_SOLSTICEn); 

NEW_LINE(3); 

GET_DATA(SOLAR_INTENSITY_SUMMER_SOLSTICE); 

NEWLINE(l); 

PUT("Solar  Intensity  Summer  Solstice"); 

SET_COL(55); 

PUT(SOLAR_INTENSITY_SUMMER_SOLSTICE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    W/mA2"); 

NEW_LINE(3); 

when  7  =  > 

VIDEO.  CLEARSCREEN; 

PUT("Please  enter  a  value  for  SOLAR_INTENSITY_VERNAL_EQUINOX"); 

NEW_LINE(3); 

GET_DATA(SOLAR_INTENSITY_VERNAL_EQUINOX); 

NEW_LINE(1); 

PUT("Solar  Intensity  Vernal  Equinox"); 

SET_COL(55); 

PUT(SOLAR_INTENSITY_VERNAL_EQUINOX,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    W/m*2"); 

NEW_LINE(3); 
when  8  =  > 

VIDEO.  CLE  ARSCREEN; 

PUTfPlease  enter  a  value  for  SOLARINTENSITYAUTUMNALEQUINOX"); 

NEW_LINE(3); 

GET_DATA(SOLAR_INTENSITY_AUTUMNAL_EQUINOX); 

NEWLINE(l); 

PUT("Solar  Intensity  Autumnal  Equinox"); 

SET_COL(55); 

PUT(SOLAR_INTENSITY_AUTUMNAL_EQUINOX,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT("    W/mA2"); 

NEW_LINE(3); 
when  9  =  > 
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VIDEO.  CLEARSCREEN; 

PUT("PIease  enter  a  value  for  CELLEFFICIENCY"); 

NEW_LINE(3); 

GETDATA(CELLEFFICIENCY); 

NEW_LINE(1); 

PUTfCell  Efficiency"); 

SET_COL(55); 

PUT(CELL_EFFICIENCY,FORE=  >2,AFT=  >4,EXP=  >0); 

NEW_LINE(3); 

when  10  =  > 

VIDEO.  CLEARSCREEN; 

PUT("Please  enter  a  value  for  PACKINGFACTOR"); 

NEW_LINE(3); 

GETDATA(PACKINGFACTOR); 

NEWLINE(l); 

PUT("  Packing  Factor"); 

SET_COL(55); 

PUT(PACKING_FACTOR,FORE=  >2,AFT  =  >4,EXP=  >0); 

NEW_LINE(3); 

when  1 1  =  > 

VIDEO.CLEAR  SCREEN; 

PUT(BPlease  enter  a  value  for  AVGSOLARCELLABSORBTANCE"); 

NEW_LINE(3); 

GET_DATA(AVG_SOLAR_CELL_ABSORBTANCE); 

NEW_LINE(1); 

PUT("Average  Solar  Cell  Absorbtance"); 

SET_COL(55); 

PUT(AVG_SOLAR_CELL_ABSORBTANCE,FORE=  >2,AFT=  >4,EXP=  >0); 

NEW_LINE(3); 

when  others  —  > 

VIDEO.  CLE  ARSCREEN; 

PUT_LINE( "Thank  You  for  your  input  "); 
NEW_LINE(4); 
end  case; 

CHAR  :=  N; 

NEW_LINE(4); 

PUT_LINE("If  you  wish  to  change  another  value  please  enter  a   'y'   for  YES"); 
PUT_LINE("otherwise  enter  a  'n'  for  NO  "); 
GETCHARACTER(CHAR); 
if  CHAR  =  'V  or  CHAR  =  'y'  then 
CHAR  :=  N; 
VIDEO.  CLE  ARSCREEN ; 
goto  VALUE; 
else 

VIDEO.CLEARSCREEN; 

PUT_LINE(" UNDERSTAND  NO  MORE  CHANGES"); 
NEW_LINE(3); 
end  if; 
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else 

VIDEO.CLEARSCREEN; 

PUT_LINE("UNDERSTAND  DEFAULT  VALUES  WILL  BE  USED"); 

NEW_LINE(3); 
end  if; 


NEW_LINE(OUTATC,l); 

PUT(OUTATC,  "Solstice  Angle"); 

SET_COL(OUTATC,55); 

PUT(OUTATC,SOLAR_ASPECT_COEFFICIENT_SOLSTICE,FORE  =  >4,AFT  =  >2,EXP  =  >0); 

PUT(OUTATC,"   degrees"); 

NEW_LINE(OUTATC,2); 

PUT(OUTATC,  "Equinox  Angle"); 

SET_COL(OUTATC,55); 

PUT(OUTATC,SOLAR_ASPECT_COEFFICIENT_EQUINOX,FORE  =  >4,AFT=  >2,EXP=  >0); 

PUT(OUTATC,"   degrees"); 

NEW_LINE(OUTATC,2); 
PUT(OUTATC,"Cell  Emittance  Front"); 
SET_COL(OUTATC,55); 
PUT(OUTATC,CELL_EMITTANCE_FRONT,FORE=  >3,AFT=  >3,EXP=  >0); 

NEW_LINE(OUTATC,2); 
PUT(OUTATC,"Cell  Emittance  Back"); 
SET_COL(OUTATC,55); 
PUT(OUTATC,CELL_EMITTANCE_BACK,FORE=  >3,AFT=  >3,EXP  =  >0); 

NEW_LINE(OUTATC,2); 

PUT(OUTATC,  "Solar  Intensity  Winter  Solstice"); 

SET_COL(OUTATC,55); 

PUT(OUTATC,SOLAR_INTENSITY_WINTER_SOLSTICE,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT(OUTATC,"    W/mA2"); 

NEW_LINE(OUTATC,2); 

PUT(OUTATC, "Solar  Intensity  Summer  Solstice"); 

SET_COL(OUTATC,55); 

PUT(OUTATC)SOLAR_INTENSITY_SUMMER_SOLSTICE,FORE=  >4,AFT=  >2,EXP  =  >0); 

PUT(OUTATC,"   W/mA2"); 

NEW_LINE(OUTATC,2); 

PUT( OUT ATC, "Solar  Intensity  Vernal  Equinox"); 

SET_COL(OUTATC,55); 

PUT(OUTATC,SOLARJNTENSITY_VERNAL_EQUINOX,FORE  =  >4,AFT=  >2,EXP=  >0); 

PUT(OUTATC,"   W/mA2"); 

NEW_LINE(OUTATC,2); 

PUT(OUT ATC, "Solar  Intensity  Autumnal  Equinox"); 

SET_COL(OUTATC,55); 

PUT(OUTATC,SOLAR_INTENSITY_AUTUMNAL_EQUINOX,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT(OUTATC,"   W/mA2"); 
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NEW_LINE(OUTATC  ,2) ; 

PUT(OUTATC,"Cell  Efficiency"); 

SET_COL(OUTATC  ,55) ; 

PUT(OUTATC,CELL_EFFICIENCY,FORE  =  >2,AFT=  >4,EXP  =  >0); 

NEW_LINE(OUTATC,2); 

PUT(OUTATC, "Packing  Factor"); 

SET_COL(OUTATC,55); 

PUT(OUTATC,PACKING_FACTOR,FORE  =  >2,AFT=  >4,EXP  =  >0); 

NEW_LINE(OUTATC,2); 

PUT(OUTATC,  "Average  Solar  Cell  Absorbtance"); 

SET_COL(OUTATC,55); 

PUT(OUTATC,AVG_SOLAR_CELL_ABSORBTANCE,FORE  =  >2,AFT=  >4,EXP=  >0); 

VIDEO .  CLE  ARSCREEN ; 

EFFECTIVE_SOLAR_CELL_  ABSORBTANCE:  =  AVGSOLARCELLABSORBTANCE 

-PACKING_FACTOR*CELL_EFFICIENCY; 
NEW_LINE(2); 

PUT(" Effective  Solar  Cell  Absorbtance  is  "); 
NEW_LINE(3); 
SET_COL(55); 
PUT(EFFECTIVE_SOLAR_CELL_ABSORBTANCE,FORE-  >2,AFT=  >4,EXP=  >0); 


NEW_LINE(OUTATC,2); 

PUT(OUTATC,  "Effective  Solar  Cell  Absorbtance  is  "); 

SET_COL(OUTATC,55); 

PUT(OUTATC,EFFECTIVE_SOLAR_CELL_ABSORBTANCE,FORE=  >2,AFT=  >4,EXP=  >0); 


if  DRUM_SPINNER  =  FALSE  then 

NEW_LINE(4); 

PUT("Please  enter  the  FRONT  solar  cell  array  area  in  meters  squared  "); 

NEW_LINE(3); 

GET_DATA(FRONT_ARRAY_AREA); 

NEW_LINE(3); 

PUT("Front  Array  Area  is  "); 

set_col(55); 

PUT(FRONT_ARRAY_AREA,FORE-  >3,AFT=  >3,EXP=  >0); 

PUT("      mA2"); 

NEW_LINE(4); 

PUT("Please  enter  the  BACK  solar  cell  array  area  in  meters  squared  "); 

NEW_LINE(3); 

GET_DATA(BACK_ARRAY_AREA); 

VIDEO.  CLEARSCREEN; 

NEW_LINE(3); 

PUT(" Front  Array  Area  is  "); 
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set_col(55); 

PUT(FRONT_ARRAY_AREA,FORE=  >3,AFT=  >3,EXP=  >0); 

PUT("      mA2"); 

NEW_LINE(2); 

PUT("Back  Array  Area  is  "); 

set_col(55); 

PUT(BACK_ARRAY_AREA,FORE=  >3,AFT=  >3,EXP=  >0); 

PUT("      mA2"); 

NEW_LINE(5); 

STOP; 


WINTER_SOLSTICE_OPERATING_TEMPERATURE:  =  ((EFFECTIVE_SOLAR_CELL_ABSORBTANCE 
♦FRONTARRAYAREA 
♦SOLARINTENSITYWINTERSOLSTICE 
*COS(SOLAR_ASPECT_COEFFICIENT_SOLSTICE*PI/180.0)) 

/((CELL_EMITTANCE_FRONT*FRONT_ARRAY_AREA  +  CELLEMITTANCEBACK 
*BACK_ARRAY_AREA)*STEFAN_BOLTZMANN))**0.25; 

NEW_LINE(2); 

PUT( "Winter  Solstice  Operating  Temperature  is  "); 

SET_COL(55); 

PUT(WINTER_SOLSTICE_OPERATING_TEMPERATURE,FORE=  >2,AFT=  >4,EXP  =  >0); 

PUT("     deg  kelvin"); 

SUMMER_SOLSTICE_OPERATING_TEMPERATURE:  =  ((EFFECTIVE_SOLAR_CELL_ABSORBTANCE 
♦FRONTARRAYAREA 
♦SOLARINTENSITYSUMMERSOLSTICE 
*COS(SOLAR_ASPECT_COEFFICIENT_SOLSTICE*PI/ 180.0))  --  0.0  degrees  =  1.0 

/((CELL_EMITTANCE_FRONT*FRONT_ARRAY_AREA  +  CELLEMITTANCEBACK 
*BACK_ARRAY_AREA)*STEFAN_BOLTZMANN))**0.25; 

NEW_LINE(2); 

PUT("Summer  Solstice  Operating  Temperature  is  "); 

SET_COL(55); 

PUT(SUMMER_SOLSTICE_OPERATING_TEMPERATURE,FORE=  >2,AFT  =  >4,EXP=  >0); 

PUT("     deg  kelvin"); 

VERNAL_EQUINOX_OPERATING_TEMPERATURE:  =  ((EFFECTIVE_SOLAR_CELL_ABSORBTANCE 
♦FRONTARRAYAREA 
♦SOLARINTENSITYVERNALEQUINOX 
*COS(SOLAR_ASPECT_COEFFICIENT_EQUINOX*PI/180.0))  -  0.0  degrees  =  1.0 

/((CELL_EMITTANCE_FRONT*FRONT_ARRAY_AREA  +  CELL_EMITTANCE_BACK 
*BACK_ARRAY_AREA)*STEFAN_BOLTZMANN))**0.25; 

NEW_LINE(2); 

PUT("Vernal  Equinox  Operating  Temperature  is  "); 

SET_COL(55); 

PUT(VERNAL_EQUINOX_OPERATING_TEMPERATURE,FORE  =  >2,AFT=  >4,EXP=  >0); 
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PUT("     deg  kelvin"); 


AUTUMNAL_EQUINOX_OPERATING_TEMPERATURE:=((EFFECTIVE_SOLAR_CELL_ABSORBTANC 
E 

♦FRONTARRAYAREA 

*SOLAR_INTENSITY_AUTUMNAL_EQUINOX 

*COS(SOLAR_ASPECT_COEFFICIENT_EQUINOX*PI/180.0))  --  0.0  degrees  =  1.0 

/((CELL_EMITTANCE_FRONT*FRONT_ARRA  YAREA  +  CELLEMITTANCEBACK 
*BACK_ARRAY_AREA)*STEFAN_BOLTZMANN))**0.25; 

NEW_LINE(2); 

PUT("  Autumnal  Equinox  Operating  Temperature  is  "); 

SET_COL(55); 

PUT(AUTUMNAL_EQUINOX_OPERATING_TEMPERATURE,FORE  =  >2,AFT  =  >4,EXP=  >0); 

PUT("     deg  kelvin"); 

NEW_LINE(4); 


else 

-  AREA  FOR  A  SPIN  STABILIZED  SPACECRAFT 

NEW_LINE(2); 

PUT("Please  enter  the  FRONT  solar  cell  array  area  in  meters  squared  "); 

NEW_LINE(4); 

GETD  ATA(FRONT_ARRAY_ARE  A) ; 

NEW_LINE(3); 

PUTCFront  Array  Area  is  "); 

set_col(55); 

PUT(FRONT_ARRAY_AREA,FORE-  >3,AFT=  >3,EXP=  >0); 

PUT("    mA2"); 

VIDEO. CLEAR  SCREEN; 


WINTER_SOLSTICE_OPERATING_TEMPERATURE:  =  ((EFFECTIVE_SOLAR_CELL_ABSORBTANCE 
*SOLAR_INTENSITY_WINTER_SOLSTICE 
*COS(SOLAR_ASPECT_COEFFICIENT_SOLSTICE*PI/180.0)) 
/(CELL_EMITTANCE_FRONT*PI*STEFAN_BOLTZMANN))**0.25; 

NEW_LINE(2); 

PUT("Winter  Solstice  Operating  Temperature  is  "); 

SET_COL(55); 

PUT(WINTER_SOLSTICE_OPERATING_TEMPERATURE,FORE=  >2,AFT=  >4,EXP=  >0); 

PUT("     deg  kelvin"); 

SUMMER_SOLSTICE_OPERATING_TEMPERATURE:  =  ((EFFECTIVE_SOLAR_CELL_ABSORBTANCE 

*SOLAR_INTENSITY_SUMMER_SOLSTICE 

*COS(SOLAR_ASPECT_COEFFICIENT_SOLSTICE*PI/ 180.0))  --  0.0  degrees  =  1.0 

/(CELL_EMITTANCE_FRONT*PI*STEFAN_BOLTZMANN))**0.25; 
NEW_LINE(2); 
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PUT("Summer  Solstice  Operating  Temperature  is  "); 

SET_COL(55); 

PUT(SUMMER_SOLSTICE_OPERATING_TEMPERATURE,FORE  =  >2,AFT=  >4,EXP=  >0); 

PUT("     deg  kelvin"); 

VERNAL_EQUINOX_OPERATING_TEMPERATURE:  =  ((EFFECTIVE_SOLAR_CELL_ABSORBTANCE 

*SOLAR_INTENSITY_VERNAL_EQUINOX 

*COS(SOLAR_ASPECT_COEFFICIENT_EQUINOX*PI/ 180.0))--  0.0  degrees  =  1.0 

/(CELL_EMITTANCE_FRONT*PI*STEFAN_BOLTZMANN))**0.25; 
NEW_LINE(2); 

PUT(" Vernal  Equinox  Operating  Temperature  is  "); 
SET_COL(55); 

PUT(VERNAL_EQUINOX_OPERATING_TEMPERATURE,FORE=  >2,AFT  =  >4,EXP=  >0); 
PUT("     deg  kelvin"); 


AUTUMNAL_EQUINOX_OPERATING_TEMPERATURE:  =  ((EFFECTIVE_SOLAR_CELL_ABSORBTANC 
E 

*SOLAR_INTENSITY_AUTUMNAL_EQUINOX 

*COS(SOLAR_ASPECT_COEFFICIENT_EQUINOX*PI/ 180.0))--  0.0  degrees  =  1.0 

/(CELL_EMITTANCE_FRONT*PI*STEFAN_BOLTZMANN))**0.25; 
NEW_LINE(2); 

PUT("Autumnal  Equinox  Operating  Temperature  is  "); 
SET_COL(55); 

PUT(AUTUMNAL_EQUINOX_OPERATING_TEMPERATURE,FORE=  >2,AFT=  >4,EXP=  >0); 
PUT("     deg  kelvin"); 
NEW_LINE(3); 


end  if; 

NEW_LINE(OUTATC,2); 

PUT(OUTATC, "Front  Array  Area  is  "); 

set_col(OUTATC,55); 

PUT(OUTATC,FRONT_ARRAY_AREA,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT(OUTATC,"    mA2"); 

NEW_LINE(OUTATC,2); 

PUT(OUTATC,"Back  Array  Area  is  "); 

set_col(OUTATC,55); 

PUT(OUTATC,BACK_ARRAY_AREA,FORE=  >4,AFT=  >2,EXP=  >0); 

PUT(OUTATC,"    mA2"); 

NEW_LINE(OUTATC,2); 

PUT(OUTATC, "Winter  Solstice  Operating  Temperature  is  "); 

SET_COL(OUTATC,55); 

PUT(OUTATC,WINTER_SOLSTICE_OPERATING_TEMPERATURE,FORE-  >4,AFT=  >2,EXP=  >0); 

PUT(OUTATC,"     deg  kelvin"); 


NEW_LINE(OUTATC,2); 

PUT(OUTATC, "Summer  Solstice  Operating  Temperature  is  "); 

SET_COL(OUTATC,55); 
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PUT(OUTATC,SUMMER_SOLSTICE_OPERATING_TEMPERATURE,FORE  =  >4,AFT=  >2,EXP=  >0); 
PUT(OUTATC,"     deg  kelvin"); 


NEW_LINE(OUTATC,2); 

PUT(OUTATC," Vernal  Equinox  Operating  Temperature  is  "); 

SET_COL(OUTATC,55); 

PUT(OUTATC,VERNAL_EQUINOX_OPERATING_TEMPERATURE,FORE  =  >4,AFT=  >2,EXP  =  >0); 

PUT(OUTATC,"     deg  kelvin"); 

NEW_LlNE(OUTATC,2); 

PUT(OUTATC, "Autumnal  Equinox  Operating  Temperature  is  "); 

SET_COL(OUTATC,55); 

PUT(OUTATC,AUTUMNAL_EQUINOX_OPERATING_TEMPERATURE,FORE=  >4,AFT=  >2,EXP=  >0) 

PUT(OUTATC , "     deg  kelvin ") ; 
end  SOLARARRAYTEMPERATURE; 
begin 

CREATE(OUTATC,NAME  =  >  "ARRAYTC.DAT"); 

PRINTHEADER; 

DUAL_SPIN  (DRUMSPINNER); 

SOLAR_ARRAY_TEMPERATURE         (DRUM_SPINNER); 

CLOSE(OUTATC); 

STOP; 

NEW_LINE(2); 

PUT_LINE("DATA  FOR  THIS  DESIGN  RUN  IS  LOCATED  IN  THE  FOLLOWING  FILE"); 

NEW_LINE(2); 

PUT_LINE("  ARRAYTC.DAT  "); 

NEW_LINE(2); 

PUT_LINE("TO  KEEP  DATA  FROM  BEING  ERASED  ON  NEXT  RUN"); 

PUT_LINE("USE  DOS  COMMAND  REN  (RENAME)  "); 

NEW_LINE(2); 

PUT_LINE("EXAMPLE  -  REN  ARRAYTC.DAT     ARRAYTC.INI"); 

PUT_LINE("The  .INI   could   be   your   initials"); 

end  ARRAY  THERMAL  CONTROL; 
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E.  UTILITY  SUBPROGRAMS 

--  Title  :  GET  DATA 

—  Author  :  David  Lashbrook 
--  Date  :  15  February  1992 
--  Revised  :  30  March  1992 

--  Compiler  :  OPENADA  EXT 

~  Description      :  Package  gets  data  for  floats,  integers,  characters 

package  GETDATA  is 

procedure  GET_DATA(X  :  out  FLOAT); 

procedure  GET  INTEGERQ  :  out  INTEGER); 

procedure  STOP; 

procedure  GET_CHARACTER(CHAR  :  out  CHARACTER); 
end  GETDATA; 

—  Author  :  David  Lashbrook 
--  Date                :  15  February  1992 

—  Revised  :  30  March  1992 

--  Compiler  :  OPENADA  EXT 

—  Description      :  Package  Body  gets  data  for  floats,  integers,  characters 

with  TEXTJO,  MATHLIB,  VIDEO; 
use   TEXTJO  ; 

package  body  GETDATA  is 

package  FLOATJNOUT  is  new  FLOATIO(FLOAT); 
use       FLOATJNOUT; 

package  INTEGER  INOUT  is  new  INTEGER  JO(INTEGER); 
use       INTEGER  INOUT; 


X 

:  FLOAT  ; 

CHAR 

:  CHARACTER ; 

I 

:  INTEGER  ; 

procedure  GET_DATA(X  :  out  FLOAT)  is 
begin 
loop 
begin 

SETCOL(IO); 

PUT_LINE(" Enter  the  value  as  a  real  number  with  a  decimal  point"); 

SET_COL(15); 

PUT_LINE(" (Depress  CTRL'C  to  exit  the  program.)"); 
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SETCOL(IO); 
GET(X); 
SKIPLINE; 
exit; 
exception 

when  DATAERROR  =  > 

SKIPLINE; 

NEWLINE; 

SETCOL(IO); 

PUT_LINE(  "Error..  You  must  enter  the  value  as  a  real"); 

SETCOL(IO); 

PUT_LINE("  number  with  a  decimal  point,    ie  123.4"); 

SETCOL(IO); 

PUT_LINE("Try  again."); 

NEWLINE; 
end; 
end  loop; 
end  GETDATA; 

—  Reads  an  integer  input  from  the  keyboard 

procedure  GET_INTEGER(I  :  out  INTEGER)  is 
begin 
loop 

begin 
NEW_LINE(1); 
SETCOL(IO); 

PUT_LINE( "Enter  the  value  as  an  integer"); 
PUT_LINE(" (Depress  CTRL*C  to  exit  the  program.)"); 
SETCOL(IO); 
GET(I); 
SKIP_LINE(1); 
exit; 
exception 
when  DATAERROR  =  > 
SKIPLINE; 
NEW_LINE; 
SETCOL(IO); 

PUT_LINE( "Error..  You  must  enter  the  value  as  a  INTEGER"); 
SETCOL(IO); 

PUT_LINE("  NO!    decimal  point,    ie  123  "); 
SETCOL(IO); 

PUT_LINE("  Please  try  again."); 
NEWJJNE; 
end; 
end  loop; 
end  GETINTEGER; 

procedure  STOP  is 

N         :  INTEGER  ; 
begin 
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SETCOL(IO); 

PUTfTO  CONTINUE  ENTER  ANY  INTEGER"); 
GETJNTEGER(N); 
VIDEO.  CLEAR_SCREEN ; 
end  STOP; 


procedure  GET_CHARACTER(CHAR  :  out  CHARACTER)  is 
begin 
loop 

begin 

SET_COL(10); 

PUT_LINE("Enter   'Y'    for  YES  or    "); 

NEWLINE(l); 

SETCOL(IO); 

PUT_LINE("  'N'    for  NO"); 

SET_COL(15); 

PUT_LINE(" (Depress  CTRL'C  to  exit  the  program.)"); 

SETCOL(IO); 

GET(CHAR); 

SKIPLINE; 

exit; 
exception 

when  DATAERROR  =  > 

SKIPLINE; 

NEWJJNE; 

SET_COL(10); 

PUT_LINE(" Error..  You  must  enter  character"); 

SETCOL(IO); 

PUT_LINE("Try  again."); 

NEW_LINE; 
end; 
end  loop; 
end  GET  CHARACTER; 


end  GETDATA; 
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